Select Code to Download

my %stats = map {m/(\d+)[\t\s]+(.*)/; $2 => $1} `du -k`; 
for (keys %stats) { 
 print "$_ = $stats{$_}\n"; 
}

./.ssh = 5
./temp = 273
. = 280

$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)
+-.*)$/;
$_=["ps -e -o pid | "," $2 | "," -v "," "];`@$_`?{print"+ $1"}:{print"
+- $1"}&&`rm $1`;
print$\;}