Select Code to Download

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

Insted do as follows
...
        
}