The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

use vars qw/$b/;
BEGIN {
  $b = eval "sub {1}";
}
&$b;
&$b;