use strict;

use LWP;
use HTTP::Request::Common;
use HTTP::Cookies;

use constant URL => 'http://www.perlmonks.org/';

my $kudra  = join(' ', @ARGV);
my $jcwren = $ENV{'HOME'};
my $merlyn = LWP::UserAgent->new();

$merlyn->agent('chat_poster/1.0 (' . $merlyn->agent() .')');

$merlyn->cookie_jar(HTTP::Cookies::Netscape->new(
	file     => "$jcwren/.netscape/cookies",
	autosave => 1
));

my $OeufMayo = POST(URL,
	Content => [
		op           => 'message',
		message_send => 'talk',
		message      => $kudra,
	] 
);

my $chromatic = $merlyn->request($OeufMayo);