{
 my $num = 0;
 sub count_it {
    $num++;
 }
 sub print_it {
    print $num, "\n";
 }
}

##</code><code>##

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