Select Code to Download

use warnings;
use strict;
...

rename $filename_in, "$filename_in.bak" or die "renaming '$filename_in
+': $!";
rename $filename_out, $filename_in      or die "renaming '$filename_ou
+t': $!";

c:\@Work\Perl\monks\samira_saber>dir
 Volume in drive C is Acer
...
c:\@Work\Perl\monks\samira_saber>fc topol1.au topol1.top.bak
Comparing files topol1.au and TOPOL1.TOP.BAK
FC: no differences encountered