#!/usr/bin/perl
use strict;

BEGIN {
    $ENV{HTTPS_PROXY} = 'my_proxy:port';
};



use WWW::Mechanize;
use Crypt::SSLeay;


my $mech = WWW::Mechanize->new(autocheck => 1,noproxy => 1);

$mech->cookie_jar(HTTP::Cookies->new);