sub test{
  {
    my $cnt = 1;
    sub get_count {
        return $cnt++;
    }
  }
  print get_count();
}
print "test 4: ".test(4)."\n";
print "test 7: ".test(7)."\n";