Select Code to Download

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