my $old_warn;
BEGIN {$old_warn = $^W;}
$^W = $old_warn;