sub handle_connection
{
        my $x = shift;
        my $sz = <$x>;
        print $x "Testing\n";
}