#methode1
  #  open(RAUS, ">") or die $!;
 #   binmode(RAUS);
 #   for(1..($_[1])) {print RAUS $_[2];seek(RAUS, 0, 1);}
#    close(RAUS);

#methode2    
sysopen(DATEI, $_[0], O_WRONLY | O_CREAT) || die "$Datei: $!";
syswrite(DATEI,$_[2]);
close(DATEI);