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