#!/usr/bin/perl
use strict;
use warnings;

use WWW::Mechanize;
my $mech = new WWW::Mechanize;
my $total = 0;

# Log in
$mech->get("http://www.alltel.com");
$mech->submit_form(
  form_name => "frmTest",
  fields    => {
    username => "username",
    password => "password"
  }
);

# Get to suscribers
$mech->form_number(5);
$mech->click_button(value => "Current Usage");

sub scrape {
  my @ppl = @_;
  foreach my $p (0 .. $#ppl) {
    $mech->form_name("PC_7_1P_CMA_frmCompanyHierarchy");
    $mech->tick("c0_$_", 1, ($_ == $p) ? 1 : undef) foreach 0 .. $#ppl;
    $mech->click("PC_7_1P_CMA_GO");
    my @src = split("\n", $mech->content);
    my $i = $#src;
    foreach (reverse @src) {
      if (m/Anytime Minutes/) {
        $src[++$i] =~ m/(\d+)/;
        $total += $1;
        print "$ppl[$p]: $1\n";
        last;
      }
      $i--;
    }
  }
  print "Total: $total\n";
}

scrape("Dad", "Mom", "Dustin", "Rachel");