#!/usr/bin/perl -w
use strict;

die "Usage: ", $0 =~ /([^\/]+)$/, " <URL>\n" unless @ARGV;

use WWW::Mechanize::Firefox;
my $mech = WWW::Mechanize::Firefox->new();
$mech->get($ARGV[0]);
$mech->activateTab();

my($user, $pass) = qw{SHHH_its_a_secret Yeah_sure_whatever};

for (1..7){
    $mech->submit_form(
        with_fields => {
            username    => $user,
            password    => $pass,
        }
    );

    sleep 1;

    if ($mech->content =~ /of the day is <br>(.*)/){
        print "$_ => '$1'\n";
    }
    $mech->back;
}

##</code><code>##

        my $eventlistener = $mech -> progress_listener(
            $browser,
            onLocationChange => \&process_content,
        );