while(read($handle, my $buffer, 1024)){
   print MY_HANDLE $buffer; # schreibe nun die eigene Datei
}
close $handle;