package main;
open my $fh1, '>', 'x.txt' or die $!;
print $fh1 "foo";
close $fh1;
package foo;
open my $fh2, '>', 'y.txt' or die $!;
print $fh1 "bar";  # oops!
close $fh2;