in reply to Problem with Socket Programming Perl Script

You're not error checking
$client = $socket->accept()
  or die sprintf "ERRRR(%d)(%s)(%d)(%s)", $!,$!,$^E,$^E;

[download]

In Section Seekers of Perl Wisdom