Are you getting any error messages? It would be immensely helpful if we could have those.

You should also check for success on the accept() call: my $client = $socket->accept() or die "accept failed: $!";. Also, in your die statement, you want $! (system call errors), not $@ (eval errors).