Select Code to Download

#!/usr/bin/perl
use warnings;
...
}
# lets look at a few
print $adds[rand $#adds], $/ for (1..100);

#!/usr/bin/perl
use warnings;
...
while (my $val = &$gen) {
    print $val, $/ ;
}