{
    package FOO;
    use Data::Dumper;
    print Dumper \"bar";
}
print Dumper \"baz";
__END__
Name "main::Dumper" used only once: possible typo at - line 7.
$VAR1 = \'bar';
print() on unopened filehandle Dumper at - line 7.

##</code><code>##

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