LWP::UserAgent::new: ()
LWP::UserAgent::proxy: http http://xxx.xx.xx.xx:8080
LWP::UserAgent::request: ()
HTTP::Cookies::add_cookie_header: Checking www.site.com for cookies
HTTP::Cookies::add_cookie_header: Checking .site.com for cookies
HTTP::Cookies::add_cookie_header: Checking site.com for cookies
HTTP::Cookies::add_cookie_header: Checking .com for cookies
LWP::UserAgent::send_request: GET http://user:pwd@www.site.com/dir/_vti_bin/shtml.exe/post.htm?474
LWP::UserAgent::_need_proxy: Proxied to http://xxx.xx.xx.xx:8080
LWP::Protocol::http::request: ()
LWP::Protocol::collect: read 808 bytes
LWP::Protocol::collect: read 1001 bytes
LWP::UserAgent::request: Simple response: OK
LWP::UserAgent::request: ()
HTTP::Cookies::add_cookie_header: Checking www.site.com for cookies
HTTP::Cookies::add_cookie_header: Checking .site.com for cookies
HTTP::Cookies::add_cookie_header: Checking site.com for cookies
HTTP::Cookies::add_cookie_header: Checking .com for cookies
LWP::UserAgent::send_request: POST http://www.site.com/dir/_vti_bin/shtml.exe/post.htm?474
LWP::UserAgent::_need_proxy: Proxied to http://xxx.xx.xx.xx:8080
LWP::Protocol::http::request: ()
LWP::Protocol::collect: read 397 bytes
LWP::UserAgent::request: Simple response: Unauthorized

##</code><code>##

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;