open (FILE1, "$original"); open (FILE2, ">$copy"); while ( read(FILE1,$file_contents,1024) ) { print FILE2 $file_contents; } close (FILE1); close (FILE2);