Select Code to Download

sub connectToHost {
...
...
    foreach my $line (@request){
        print $UrlSock $line;
    }

Can't use an undefined value as a symbol reference at ...

    $hash->{url} = ($firstline =~ m|(http://\S+)|)[0];
    if($hash->{url}=~/\?(.+)/s){
...
        }
...
    $hash->{url}=~s/\?.*//s;

    if($firstline =~ m!(GET|POST|HEAD) http://([^/:]+):?(\d*)!){
        $method=$1;
...
    $hash->{method}=$method;
...
    if ($method=~/^POST$/is && $len) {

    #Get Reply Header
    my %Reply = ();
...
        binmode $UrlSock;
        binmode $Client;
    }

sub worker {
    my $tid = threads->tid();
    local $SIG{__DIE__} = sub{ $ThreadStatus{$tid} = 'died'; };
...

#!/usr/bin/perl
use strict;
...
    $str=~s/[\r\n\s\t]+$//s;
    return $str;
}