Select Code to Download

sub openOut {
    my $filename = shift;
...
    select $fh;
    return $fh;
};

# void context, no handle to close
openOut ("file1");
...
my $handle = openOut ("file2");
print "bar\n";
closeOut ($handle);