#! 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();