sub TestMe;
BEGIN { TestMe }
sub TestMe { warn "oh no you didn't" }
__END__
$ perl testme
Undefined subroutine &main::TestMe called at testme line 2.
BEGIN failed--compilation aborted at testme line 2.