Select Code to Download

open OLD, $file or die "Can't open $file:$!\n";
open NEW, ">$file.new" or die "Can't open temp file $file.new:
...
} else {
    print "I didn't find !\n";
}