#!perl -w

use strict;

use LWP::UserAgent;

use HTTP::Request::Common;

my $ua = LWP::UserAgent->new;

my $request = POST ('http://perlmonks.org', [node=>'showchatmessages', displaytype=>'raw']);

my $response = $ua->request($request);

my $page = $response->content; 

print $page;