use HTTP::Request::Common;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $req = POST 'http://www.somegateway.com/cgi-bin/somedir',
[	
	somevariable1 		=> 'foo',
	somevariable2 		=> 'bar',
];

my $reply;
my $response = $ua->request($req);
	if ($response->is_success) {
		$reply = $response->content;
	} else {    
	  print STDERR $response->status_line, "\n";
	}

...do something with $reply...