#!/usr/bin/perl --
BEGIN {
##</code><code>##

$ cat junk12.pl
warn "hello";
BEGIN { warn "hello "; }
warn "hello";
BEGIN { warn "hello "; }
warn "hello";

##</code><code>##

$ perl junk12.pl
hello  at junk12.pl line 2.
hello  at junk12.pl line 4.
hello at junk12.pl line 1.
hello at junk12.pl line 3.
hello at junk12.pl line 5.