Are you trying to do something like this?

open my $fh, '>', 'outfile.txt';

test_and_write( $fh );

sub test_and_write {
  my $handle = shift;
  if( rand() > .5 ) {
    close $handle;
    return;
  }
  else {
    print $handle "Still open.\n"
    return 1;
  }
}
[download]

It's possible. Maybe not a great separation of concerns, but possible.

If that's not what you're asking, read your question back to yourself and see if it makes sense to you, because it's a little opaque to me.