Help for this page

Select Code to Download

Select or download this

use autodie;
open my $in, "<", "your-file";
...
close $out;
close $in;
rename "your-file.tmp", "your-file";