Select Code to Download

for (1..3) {
    print "$_: ";
    system(qw( perl -wle ), "print scalar <STDIN>");
}

for (1..3) {
    print "$_: ";
...
    );   
    print "\n";
}