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

# Post article works!
#my $mech = WWW::Mechanize->new();
#$mech ->get('http://user:pwd@www.site.com/dir/post.htm');
#$mech ->form_number(1);
#$mech ->field('Subject', 'test');
#$mech ->field('Comments', 'test');
#$mech ->click();

#Reply article fails!
LWP::Debug::level('+');
my $mech = WWW::Mechanize->new();
$mech->get('http://user:pwd@www.site.com/dir/_vti_bin/shtml.exe/post.htm?474');
$mech->form_number(1);
$mech->field('Comments', 'woo-hoo');
my $response = $mech->submit();
if ($response->is_success) {
  print $response->content;
} else {
  print $response->status_line."\n";
}
exit 0;