Select Code to Download

open(Input, '+<…') || die "No such file found!";
open(Output, '>…') || die "Can't find the file!";

...
print Output $_; 

}