Select Code to Download

use strict;
use warnings;

#Checks the type of OS here

...
if ($OS == SunOS ) {
   
   &< snip1 &<

my $os = `uname -s`;   # why capital?
chomp $os;             # get rid of the EOL character, you'll be glad 
+you did.
...
if ( $os eq 'SunOS' ) {    # this is where EOL needs to be gone...

&< snip! &<

$DF = `df -h $FILESYSTEM | grep -v "Filesystem" | sed -e "s/%//g"|
+awk '{print $5}'`;
    
    print ("The file system $ FILESYSTEM usage is $DF % \n");

my $cmd=sprintf("df -k %s |",$FILESYSTEM)  #note the trailing pipe in 
+the format
open PIPE,$cmd or die "$cmd: $!";
...
chomp $df;      # just for grins
$df =~ s/\%//g; # strip the %
printf "File system %s is %d%% used\n",$FILESYSTEM,$df

$DU = `du -sh $FILESYSTEM | sort -rn | head -20`;

...
        } @summary[0..19]
        );