use strict;
use LWP::UserAgent::FramesReady;
use URI::URL;
use HTTP::Cookies;


# put your perlmonks username and password here
my $pm_user='';
my $pm_password='';

#instantiate new user agent
my $WWWAgent = new LWP::UserAgent::FramesReady();


# attach cookiejar to user agent
my $co=new HTTP::Cookies(file=>'./cookies.dat',autosave=>1);
$WWWAgent->cookie_jar($co);


# build request to simulate login
my $url=new URI::URL 'http://mail.mybudweiser.com/chekin.php';
$url->query_form(
        bounceto =>      '',
        nobounce =>      '',
        email    =>      'someusername@budweiser.com',
        password  =>     'somepassword');
my $WWWRequest = new HTTP::Request 'GET', $url->as_string() ;
# submit request
my $WWWResult = $WWWAgent->request($WWWRequest, './out.html');
die "Error logging in $WWWResult->code $WWWResult->message"
        if(!$WWWResult->is_success);