sub openOut {
my $filename = shift;
open my $fh, '>', $filename or die $!;
select $fh;
return $fh;
};
In this way, the user of your module can either call this sub in void context if they don't care about closing the handle later (this avoiding the "once" warning) or in scalar context if they do. eg:
# void context, no handle to close
openOut ("file1");
print "foo\n";
# scalar context, handle stored so can be closed, printed to explicitl
+y, etc.
my $handle = openOut ("file2");
print "bar\n";
closeOut ($handle);
|