use warnings;
no strict;

package main;
$fh = "HANDLE";
package Other;
open $::fh, '>/tmp/foo.txt' or die $!;
package main;
print $::fh "Doesn't work\n";
package VRML;
print $::fh "Doesn't work\n";
package Other;
print $::fh "Works\n";