Using defined returns true, but won't set $_ (at least I don't think that it will).
Try this

my $new_sock = $sock->accept();
while(<$new_sock>)
{
 print $_;
}
close($sock);
[download]