my $debug; BEGIN { $debug = 1; } use if $debug, 'warnings';