BEGIN {
  # Keep older versions of Perl from seeing warnings.
  $INC{"warnings.pm"} = "faked" if $] < 5.006;
}
...
use warnings;