sub A () {1};
sub B {2};
print A + 1,$/;
print B + 1,$/;

__END__
prompt$ perl test.pl
2
2prompt$