use strict ;

open( my $fh , '<' , 'beispiel.txt' ) ;
funktion( $fh ) ;
close( $fh ) ;

sub funktion {
  my ( $filehandle ) = @_ ;

  print $filehandle "Beispiel\n" ;
}