use File::stat;
use Time::Local;

chomp(my $host = `hostname`);
my($timestamp) = strftime "%Y%m%d", localtime;
my($humantime) = strftime "%c", localtime;
my($standard_days) = 7;
my($mksysb_cutoff) = (time() - ($standard_days*86400)); # now - standard_days_seconds

&cleanup;

sub cleanup {
    opendir(MOUNT, "/mnt") or die "Cannot open directory: $!";
    @mksysb_list = readdir MOUNT;
    closedir MOUNT;
    foreach my $mksysb (@mksysb_list) {
        next if($mksysb eq ".") or ($mksysb eq "..") or ($mksysb eq "lost+found");
        if($mksysb =~ /\d+\.$host\.mksysb/) {
            my $curr_time=(stat("$mksysb"))[9];
            if ($curr_time < $mksysb_cutoff) {
                print "I would have deleted |$mksysb|!\n";
            }
        }
}