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