in reply to Read first line from each file in a directory

You should check the output of open:
open WRITE, '<', '$file' or die $!;

[download]
You are trying to open the file named '$file', quotes included. No such files exists. You need no quotes here.

In Section Seekers of Perl Wisdom