Select Code to Download

sub foo {
   my $x if 0;
...
}

foo() for 1..3;

1
2
3