note jwkrahn <blockquote><i><c> #!/usr/bin/Perl </c></i></blockquote> <p> perl (and *nix) are case sensitive so that is usually spelled: </p> <c> #!/usr/bin/perl </c><br /><br /> <blockquote><i><c> open(FILE1,$file1); </c></i></blockquote> <p> You should verify that the file opened correctly: </p> <c> open FILE1, '<', $file1 or die "Cannot open '$file1' because: $!"; </c><br /><br /> <blockquote><i><c> if (($filename eq "") || (defined $filename eq 'false')) { </c></i></blockquote> <p> [doc://defined] <c>$filename</c> will never be <c>eq</c> to the string <c>'false'</c> </p> 1008229 1008229