Select Code to Download

my $test = 1;
print "$test\n";
...
3
1

while(my $var = shift @ARGV) {
  print "$var\n"; # var is scoped only in the while loop
}