Select Code to Download

use warnings;
use strict;
...
}  # end MAIN block

die "unexpected exit from MAIN";

c:\@Work\Perl\monks\Anonymous Monk\1232492>perl scrub_ref_1.pl text.in

c:\@Work\Perl\monks\Anonymous Monk\1232492>fc /b text.in.removed text.
+in.removed.au
Comparing files text.in.removed and TEXT.IN.REMOVED.AU
FC: no differences encountered