use strict;
use warnings;
foo();
print Dumper [4,5,6];
sub foo
{
	use Data::Dumper;
	print Dumper [1,2,3];
}
print Dumper [7,8,9];

##</code><code>##

__CONDENSED_OUTPUT__
$VAR1 = [1,2,3];
print() on unopened filehandle Dumper at D:\perl\t.pl line 4.
$VAR1 = [7,8,9];