BEGIN {
use warnings;
use strict;
use 5.008;

go();

sub monk {}
sub go { mink(123); }
};

print "After compilation, this message appears\n";
__END__
Outputs:
Undefined subroutine &main::mink called at try.pl line 9.
BEGIN failed--compilation aborted at try.pl line 11.