{
    package FOO;
    use Data::Dumper;
    print Dumper \"bar";
}
no Data::Dumper;   ## not even this
print Data::Dumper::Dumper \"baz";
__END__
$VAR1 = \'bar';
$VAR1 = \'baz';