#!/usr/bin/perl -w

use strict;
use CGI ':standard';
use LWP;

my $url = 'http://blah, blah, blah';

my $ua = LWP::UserAgent->new;
$ua->cookie_jar( {} );

# Note: assumes no multivalued parameters
my %param = map { $_ => param($_) } param;

# removed code to munge %param

my $resp = $ua->post($url,
                     [ %param ]);

print header;

print $resp->content;