Select Code to Download

Use File::Copy
...
copy($a,$b) ||  die "$!";

open(INPUT, "<$a");  
@data = <INPUT>;        
...
open (OUTPUT, ">$a"); 
flock(OUTPUT, 2);        
copy($a,$b) ||  die "$!";