Select Code to Download

print() on closed filehandle DATA_1 at compare_names.pl line 33, <SECO
+ND> line 773874

#! usr/bin/perl -w

...
close FIRST;
close SECOND;
close DATA_1;