#usr/etc.

use CGI;
use HTTP::Request::Common;
use LWP::UserAgent;


$query = new CGI;
$query->use_named_parameters(1);
$var1 = $query->param('a');
$var2 = $query->param('b');

  $ua = new LWP::UserAgent;
  $req=POST 'http://www.someqURL.com',[v1=>$var1,v2=>$var2];
 print $ua->request($req)->as_string;
exit 0;