use HTTP::Request::Common qw( POST );
use LWP::UserAgent;

print "Content-type:text/html\n\n";

my $ua = new LWP::UserAgent;
my $req = POST 'http://perlmonks.org/index.pl',
     [ node_id => '479' ];
my $res = $ua->request($req)->content;

if ($res->is_success) {
     print $res->content;
} else {
     print $res->error_as_HTML;
}