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

package Bad;
BEGIN {$::loaded{+__PACKAGE__}++;}
my ($a);

# It's true, but it's undefined. And it's line 5
$a = 5 + $a;