All mighty kernel cleanup script for Debian based distributions

cleanKernel.pl

#!/usr/bin/perl -w

use strict;

# Some vars..
my @KPKGS;
my $myKernel = `uname -r`;
chomp $myKernel;


my $linuxVersion = `hostnamectl | grep -i Operating`;
my $linuxFile = -f '/etc/centos-release';
if($linuxVersion =~ /Debian|Ubuntu/) {
 $linuxVersion = "Debian";
} elsif($linuxVersion =~ /CentOS|RedHat/ || $linuxFile) {
 $linuxVersion = "CentOS";
} else { exit(3); }

# Read installed kernel files
open(KERNELPKG, "find /boot/vml* -printf '%T+\t%p\n'  | sort -r|");
while(<KERNELPKG>) {
	chomp;
	push(@KPKGS, $_);
}

# too less to do ...
if (scalar(@KPKGS) <= 2) {
	print "KernelCleanup: Too less to do, exit\n";
	exit 0;
}

# We ignore the first element (thats the latest kernel
# we dont want to uninstall anyway
for(my $i = 1; $i<scalar(@KPKGS); $i++) {
	if($KPKGS[$i] =~ /$myKernel$/) { next; }
	$KPKGS[$i] =~ /.*(\/boot\/.*)/;
	if($1 && $linuxVersion eq 'Debian') {
        	`dpkg -S $1 | cut -f 1 -d : | DEBIAN_FRONTEND=noninteractive xargs -n1 apt-get remove -y `;
	} elsif($1 && $linuxVersion eq 'CentOS') {
		system("rpm -qf $1 | xargs -n1 yum -y remove ");
	}
}
exit 0;