{
    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.