#!/usr/bin/perl

use strict;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response; 
use HTTP::Cookies;

#use WWW::Mechanize;
#use CGI;
#require 'cookie.lib';


my $url = 'http://www.blablabla.info/blabla.shtml';
my $url2 = 'http://www.balbablabla.info/cgi-bin/at/out.cgi';
my $http_proxy = 'http://66.98.238.8:3128';
my $agent = 'Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)';
my $r = shift;
my $ua = new LWP::UserAgent (
   agent => $agent,
   timeout => 8,
   cookie_jar => HTTP::Cookies->new
 );

$ua->cookie_jar(HTTP::Cookies->new);
$ua->proxy(['http','https'], $http_proxy);



my $request = new HTTP::Request(GET => $url);
$request->referer("http://www.blabla.biz/main.shtml");
my $result = $ua->request($request);
if ($result->is_success) {
print "Trame1 : " . $result->status_line;

my $request2 = new HTTP::Request(GET => $url2);
$request2->referer("http://www.blabla.biz/main.shtml");
my $result = $ua->request($request2);
print "Trame2 : " . $result->status_line;
} else {
 print "Erreur : " . $result->status_line;
}