Select Code to Download

my $i = 10;
&print_i;
...
sub print_i{
    print "$i\n";
}

our $i = 10;
....

our $i;
...
sub print_i{
    print "$i\n";
}