Select Code to Download

#!/usr/bin/perl -w
                                                                      
+          
...
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";

[liverpole@golux ~/perl]% chmod +x rmtest2
[liverpole@golux ~/perl]% ls -lt rmtest2
...
[liverpole@golux ~/perl]% df --block-size=1 .
Filesystem            1-blocks      Used Available Use% Mounted on
/dev/hda2            77584592896 29352759296 44290691072  40% /