forum.lissyara.su

Код: Выделить всё

#!/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";