open INF, '<', $IFName or die $!;
open OUF, '>', $OFName or die $!;
while (my $line = <INF>) {
     ... do stuff ...
     print OUF $new_line;
}
close INF or die $!;
close OUF or die $!;

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