sub connectToHost {
...
    connect($Sock, $remote_port) || return (undef,"Socket Connect Error: $!");
...
}

...
sub processRequest {
...
    my( $UrlSock, $err ) = connectToHost( $Request{ host }, 80 );
...
    foreach my $line (@request){
        print $UrlSock $line;
    }