if ($split[0] =~ m|(.*)//(.*)|) {        ## 1 ##
            print $IN->header;
            #print qq|Got user/pass combo of: $2 \n|;
            my ($user,$pass)  = split /\:/, $2;      ## 2 ##
            
            $request = HTTP::Request->new(GET => qq|$1/$split[1]|);   ## 3 ##