use File::Transaction;

my $ft = File::Transaction->new;

$ft->linewise_rewrite($fname);

## do stuff

if($file_contents_changed) { $ft->commit }
else                       { $ft->revert }