Select Code to Download

{
 my $num = 0;
...
    print $num, "\n";
 }
}

sub count_it {
   our $num ||= 0;
...
   our $num ||= 0;
   print $num, "\n";
}