Select Code to Download

perl -e 'while (++$i) { $foo[$i] = $i; }'

perl -e 'fork; fork; while (++$i) { $c .= crypt($i,$i); $c = substr($c
+,4,128); }