#!/usr/bin/perl -w
                                                                                
my $iam = $0;
my $lscmd = "ls -lt $iam";
my $dfcmd = "df --block-size=1 .";
                                                                                
printf "Before remove\n"; system($lscmd); system($dfcmd);    sleep 1;
unlink $0;
printf " After remove\n"; system($lscmd); system($dfcmd);    sleep 1;
printf "Try ^Z to see for yourself (cmd:  $dfcmd) ...\n"; sleep 5;
printf "Now exiting the program\n";