my $req = HTTP::Request->new(GET=>"$page"); 
my $res = $ua->request($req); #UA is the UserAgent 
die $res->status_line if not $res->is_success; 
my $contentpage= $res->content(); 
open (DEST,">rapport.html"); 
print DEST $contentpage;