Select Code to Download

#!/usr/bin/perl
sub r{int rand pop} # Random integer generator, used quite a bit...
...
  }
  sleep 1 # I like [diotalevi]'s [select] much better, as the 1-second
+ delay is really too long.
}#Optional command-line argument selects how many ninja stickmen.

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/