Код: Выделить всё
#!/usr/bin/perl
use CGI;
use strict;
use warnings;
use HTTP::Request;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
push @{ $ua->requests_redirectable }, 'POST';
my $res = $ua->post("http://site.ru/page.html",
[
param1 => '123',
param2 => '321',
]
);
print "Location: $res\n\n";
Может кто сталкивался раньше с такой задачей?