Select Code to Download

    open (FILE1, "$original"); 
    open (FILE2, ">$copy"); 
...

    close (FILE1);
    close (FILE2);

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