Select Code to Download

#!/opt/local/bin/perl
#script that pesters users who use up too much space in /home
...
        print "$uid: $sp";
    } ## end if ( my ( $sp, $uid ) = $i =~ m{\s?(\d+)\s+/(?:\w+/)*(m\d
+[a-z]{3}\d{2})} )
} ## end foreach my $i (@HOM_USE_BY_DIR)

my $KiB = <>; my @pref = qw(M G T P);my $i = 0; while($i<@pref){last i
+f $KiB/1024 < 1; $KiB/=1024;$i++} print "$KiB$pref[$i]iB\n"

perl -ne'chomp(my $KiB =$_); my @pref = qw(K M G T P);my $i = 0; while
+($i<@pref){ last if $KiB/1024 < 1; $KiB/=1024;$i++} printf "${_}KiB =
+ %.3f$pref[$i]iB\n",$KiB'

perl -lne
'my $KiB =$_; 
...
$i++
} 
printf "${_}KiB = %.3f$pref[$i]iB\n ",$KiB'