my $req = HTTP::Request->new(GET => "$url");  
            $req->authorization_basic('login', 'password');  
Эти строчки тебе не кажутся подозрительными ?
Кажется надо вот так, а потом креститься
            $req->authorization_basic($login, $password);