if (1) {
  use warnings;
}
print undef;

##</code><code>##

BEGIN {
  if ($ARGV[0] eq '--debug') {
     require warnings;
     warnings->import();
   }
}