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