use HTTP::Request::Common;
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
my $res =$ua->request( POST 'http://localhost/cgi-bin/printenv',
              { Who   => 'Mark', Why  => 'Because',
                FavColors => ['Blue', 'Red', 'Yellow'],
                Hair => 'Balding',
                Etc => 'More Examples'
              }
);
print $res->content;