If this is going to be production code you should use one the many excellent CPAN modules. Consider that in error conditions your code could lockout the rest of the system or corrupt files.

For education purposes Perl's <> operator may do what you want.

 while (defined($line = <SOCK>)) {
               print $line;
           }
[download]

If not perlfaq8 has a full server example.