# if we have an @ in the URL, they will be giving us something like ftp://someone:somewhere@doamin.com .. so we need to process this appropriatly.. my $request; if ($url_to_get =~ /\@/) { my @split = split /\@/, $url_to_get; # [ftp://user:pass] @ [domain.com] # ok, lets try and get the bit after //, so we have the user/pass combo... if ($split[0] =~ m|(.*)//(.*)|) { my $URI = qq|$1//$split[1]|; print $IN->header; #print qq|Got user/pass combo of: $2 \n|; my ($user,$pass) = split /\:/, $2; $request = HTTP::Request->new(GET => $URI); $request->authorization_basic($user, $pass); print qq|Bla, got URL of: "$URI"
user: $user
pass: $pass

|; #exit; } } else { $request = HTTP::Request->new(GET => $url_to_get); }