or download this
#!/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.