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

use LWP::UserAgent;

my $ua = new LWP::UserAgent;

my $req = POST 'http://perlmonks.org/index.pl', [node_id => '20494'];
print $ua->request($req)->as_string;