use strict;
use warnings;
                                                                                
open FOO, ">x";
                                                                                
package bar;
                                                                                
close FOO or warn "$!\n";;
                                                                                
package main;
                                                                                
print FOO "Gshshsh";