#!/ur/bin/perl

use WWW::Mechanize;
use strict;
use warnings;
            
    $mech  = WWW::Mechanize->new( );
    
    $ENV{HTTPS_PROXY} = 'http://proxy';
    
    $req = HTTP::Request->new(GET => 'Adresse');
    $res = $mech->request($req);
        
    print $mech->content();