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