Select Code to Download

use strict; # never go by without it! ;)

...

 @input=reverse(@input);
 print(@input);

while(<STDIN>){chomp;last if m/done/i;push @a, $_;}print@a;

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