C:\Perl\bin\WWW-Mechanize-FormFiller-0.05>perl makefile.pl
Test::Inline 0.15_001 is nice for testing the examples, but not necessary
Warning: prerequisite Data::Random 0.05 not found.
Writing Makefile for WWW::Mechanize::FormFiller

##</code><code>##

#! Perl\bin\perl -w
 
 
use strict;
 
  use WWW::Mechanize;
  use HTML::TokeParser;
 
my $username1 = 'guesthere53';
 
 
  my $subject = 'interesting';
 
  my $regex = 'viewtopic';
 
  my $message = 'Roy keane was sacked';
 
my $agent = WWW::Mechanize->new();
 
 $agent->get(my $url = 'http://www.kendaltownfc.co.uk/forum/posting.php?mode=newtopic&f=1&sid=9996be5f86729fd29eb212ddfff4a2c5');
 
 
 
 
 
 
$agent->form(1);
 
$agent->field("username", $username1);
$agent->field("subject", $subject);
$agent->field("message", $message);
  $agent->click();