#!/usr/bin/perl -w
use strict;
use WWW::Mechanize;
use HTTP::Cookies;

use LWP;
use LWP::DebugFile;
require HTTP::Request;

sub main {
    
    my $cookie_jar = HTTP::Cookies->new(
              file          => 'cookies.dat',
              autosave      => 1,
              hide_cookie2  => 1
                       );

    my $bot = WWW::Mechanize->new;
    $bot->max_redirect(100);
    $bot->cookie_jar($cookie_jar);
    $bot->proxy(['http', 'https'], 'http://192.168.250.11:8118/');
    $bot->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.3) Gecko/20060426 Firefox/1.5.0.3');

    my $url = "https://login.yahoo.com";
    #my $url = "https://us.etrade.com";
    my $response = $bot->get($url);
    my $content = $bot->content;
}

&main