use WWW::Mechanize;
  use strict;

  my $agent = WWW::Mechanize->new();
  $agent->get('http://address');
  $agent->form_name('form1');
  $agent->field('request', 'test');
  $agent->submit(); # will go to the form's action URL
  print( $agent->response->content() );