#!/usr/bin/perl

use warnings;
use strict;
use WWW::Mechanize;

my $url;
my $m = WWW::Mechanize->new(autocheck => 1);
my $response;
$url = 'http://www.attorneycar.com/what-to-do-in-a-car-accident/';
$m->post($url);
$m->form_number(2);
$m->field('author', 'test');
$m->field('email', 'test@hotmail.com');
$m->field('url', 'sasdsadadasd');
$m->field('comment', 'sasdsadadasd');
$m->field('comment_post_ID', '37' );
$response = $m->submit_form();
print $m->response();
print $response->content();

##</code><code>##

Error POSTing http://www.attorneycar.com/wp-comments-post.php: Internal Server Error at 124.pl line 21