Select Code to Download

open INF, '<', $IFName or die $!;
open OUF, '>', $OFName or die $!;
...

rename($IFName, $IFName . ".bak") or die $!;
rename($OFName, $IFName) or die $!;