my $m = WWW::Mechanize->new( autocheck=>1);

$m->get($url);

if ($m->success)       
{
    $m->submit_form(
        form_id => 'comment-form',
        fields  => {
           author => $author,
           email => $email,
           url => '',
           text => $comment,
        },
    );
        my $response = $m->response();
        print "Your comment has been posted and will appear shortly.";

} else {
        print "Was not able to connect to website.";
}