use strict;
use WWW::Mechanize;
my $agent = WWW::Mechanize->new( autocheck => 1 );

sub __doPostBack {
  my ($eventTarget,$eventArgument) = @_;
  $agent->current_form->field('__EVENTTARGET',$eventTarget);
  $agent->current_form->field('__EVENTARGUMENT',$eventArgument);
};

# ... load the page, and select the various zones