print counter(), "\n";
BEGIN{   
    my $count = 0;
    sub counter { $count++ }
}
print counter(), "\n";
__END__
1
0