sub do_stuff {
   my $sock = shift;
   print "Client connected\n";

   while( my $input = <$sock> ) {
      chomp( $input );
      print "$input\n";
   }

   print "Client disconnected\n";

   $sock->close;
  #or
   close($sock);

return;

}