sub foo {
  my $handle = shift;

  print $handle "tralala\n";
}

foo( $fh );