use LWP::UserAgent;
use HTTP::Request::Common;

my $formurl  = "http://www.amihotornot.com/board.pl";
my $id       = 20010131;
my $username = "MeowChow";
my $password = "catfood";
my $subject  = "Fancy Feast is neither fancy nor a feast.";
my $post     = "Discuss amongst yourselves...";

# construct an anonymous array for the Http::Request::Common::POST method
my $formvars = [
  id        => $id,
  username  => $username,
  password  => $password.
  subject   => $subject,
  comments  => $post,
  submit    => "Submit",
];
  
$ua = new LWP::UserAgent;
$ua->request(POST $formurl, $formvars);