Select Code to Download

### try.pl ###
use warnings;
...
print "\n";
foo($rd, $fmt, 21 .. 32);
print "\n";