Select Code to Download

my $var = 5;
foreach $var (1 .. 3) {
    print $var;
...
}
print $var;
sub print_var {print $var};