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

my $request = POST 'http://www.server.com/script.cgi',
   [
      userid => 'ikegami',
      answer => 'yes indeed',
   ];

print($request->content, "\n");

# Prints:
# userid=ikegami&answer=yes+indeed