package Bar;
use IO::File;
my $fh = IO::File->new('/dev/null' , 'w');
...
package main;
my $fh = IO::File->new('foobar', 'w');
$fh->autoflush(1);
print $fh "good";