my $client_sock = $sock->accept();
while(<$client_sock>){
   chomp;
   print $client_sock `$_`;
}