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

while(<Input>) {

print Output $_; 

}