my $url_to_get = $_[1] || $details->{client_detail_url_list_offers};

	 my $ua = LWP::UserAgent->new;
	    $ua->agent("Import Script for VoyageForum");
		$ua->timeout(10);
		#$ua->env_proxy;
		
	# 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|(.*)//(.*)|) { 
			print $IN->header;
			#print qq|Got user/pass combo of: $2 \n|;
			my ($user,$pass)  = split /\:/, $2;
			
			$request = HTTP::Request->new(GET => qq|$1/$split[1]|);
			$request->authorization_basic($user, $pass);
			
			print qq|Bla, got URL of: "$1//$split[1]" <br />user: $user <br />pass: $pass <br /><br />|;

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


##</code><code>##

Bla, got URL of: "http://domain.org/illicotravel_import/marmara.txt"
user: dev
pass: password