To the peanut gallery, its not being inside the BEGIN block that matters. This too is a closure:

{
   my $msg = "Hi randal!";
   sub hi {
      print "$msg\n";
   }
}
[download]

(Yes merlyn, I know you know this... My coworker that just pointed out your message does not.)