so far I got
my $tmp_text = "member=jason&source=home";
my $ua = new LWP::UserAgent;
my $request = new HTTP::Request ('POST','http://www.something.com/member.cgi?open');
$request->content_type('application/x-www-form-urlencoded');
$request->agent("Mozilla/5.0");
$request->content($tmp_text);
my $response = $ua->request($request);
$content = $response->content;
print "$content";
but how could I set the envirionment variables:
$ENV{'SERVER_NAME'}
$ENV{'HTTP_REFERER'}
for the send?
my $tmp_text = "member=jason&source=home";
my $ua = new LWP::UserAgent;
my $request = new HTTP::Request ('POST','http://www.something.com/member.cgi?open');
$request->content_type('application/x-www-form-urlencoded');
$request->agent("Mozilla/5.0");
$request->content($tmp_text);
my $response = $ua->request($request);
$content = $response->content;
print "$content";
but how could I set the envirionment variables:
$ENV{'SERVER_NAME'}
$ENV{'HTTP_REFERER'}
for the send?