sub f { warn };
$Data::Dumper::Freezer = 'f';
require Data::Dumper;
Data::Dumper::Dumper( bless \$_, 'main' );
__END__
Warning: something's wrong at - line 1.