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: $!\n";
...
} else {
    print "I didn't find $username!\n";
}