1
2
3
4
5
6
7

sub foo {
  my $handle = shift;

  print $handle "tralala\n";
}

foo( $fh );

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!