in reply to File Search And Compare

If only that worked:
Name "main::DATA" used only once: possible typo at ./pix2 line 14.
readline() on closed filehandle main::DATA at ./pix2 line 14.

[download]

In Section Seekers of Perl Wisdom