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();
}

##</code><code>##

$ua->cookie_jar(HTTP::Cookies->new(file => ".cookies", autosave => 1));

##</code><code>##

$ua->cookie_jar(HTTP::Cookies->new(file => ".cookies", autosave => 1, ignore_discard => 1));

##</code><code>##

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