#!C:/bin/perl -w use strict; use warnings; use FindBin (); my $file = $FindBin::Bin . '/neu.txt'; open(SCHREIBEN,">>",$file) or die "Fehler beim Öffnen von 'neu.txt': $!\n"; print SCHREIBEN "Just another Perl hacker\n"; close(SCHREIBEN) or die "Fehler beim Schließen von 'neu.txt': $! \n"; print("Just another Perl hacker\n");