sub myprint {
  my($fh) = @_;

  print $fh "Hello world.\n";
}

myprint \*STDOUT;