Kleines Problem beim Kopieren von Dateien mit ein CGI Script

[Dr. Ma-Busen]

Hallo!

Ich bin dabei mir ein CGI Script zu schreiben. Ich habe da eine Sub drin die eine Datei kopiert. Das ganze funktioniert auch, nur das Problem ist wenn ich  Binärdateien kopiere. Manche sind nachher unbrauchbar, kaputt.
Kann mir einer sage wo das Problem liegt?

Hier ist mal die Sub die, die Dateien kopiert.

sub kopieren() {
 my $quelle = shift;
 my $ziel = shift;
 my $status = 0;
 unless (-d $quelle) {
  open(Quelle,"$quelle");
  open(Ziel,">$ziel");
  binmode(Ziel) if (-B Quelle);
  while ($status == 0) {
   if (eof(Quelle)) {
    $status = 1;
    last;
   }
   print Ziel getc(Quelle);
  }

close(Ziel);
  close(Quelle);
 }
}

Bitte verweist mich jetzt nicht auf irgendwelche Module. Ich weis das es Module für so etwas gibt, aber ich möchte das ganze ohne Module machen.

MfG
Dr. Ma-Busen