use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request::Common;
use CGI qw(:standard);

sub sendit{

my$message = shift;
my$ua = LWP::UserAgent->new;
my$cookies = HTTP::Cookies->new;
my$perlmonks = 'http://perlmonks.org/index.pl';

my$req = POST ($perlmonks, [
    op      => 'login',
    user    => $username,
    passwd  => $password,
    node_id => '16046'
]);

my$res = $ua->request($req);

$cookies->extract_cookies($res);

$req = POST ($perlmonks, [
    op      => 'message',
    message => $message,
    node_id => '16046',
    
]);

$cookies->add_cookie_header($req);

$res = $ua->request($req);

print header;
&talk(); # reload form
}