use strict;

use WWW::Mechanize;
use HTML::TokeParser;


  my $agent = WWW::Mechanize->new();
  $agent->get("http://sample.com");
  $agent->form(3);