use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;

my $req = POST "https://some.secure.site.com/script.cgi",
[ 
	some_data  => 'value 1',
	more_data=> 'value 2'
];

my $page = $ua->request($req)->as_string;
print $page;