#!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");