#!/usr/bin/perl

use WWW::Mechanize;
$mech = WWW::Mechanize->new();
$mech->get('http://www.alessonislearned.com/phpBB/login.php');

my $res = $mech->submit_form(
    with_fields => {
                    username => 'markrolsen',
                    password => '08082006',
                    autologin=> 'on',
                    },
    button      => 'login',
);
my $output_page = $mech->content();
print "Content-Type: text/html\n\n";
print "$output_page";