sub sendit{
my$message = shift;
my$ua = LWP::UserAgent->new;

$ua->cookie_jar(HTTP::Cookies->new);

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

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

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

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

print header;
&talk();
}