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;
  }
}