Here is a skeleton script that posts to another script (using POST):
use strict;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
my $ua = LWP::UserAgent->new;
my $req = POST 'http://www.domain.com/script.pl',
['key1' => 'value1',
'key2' => 'value2',
'key3' => 'value3' ];
my $res = $ua->request($req);
print $res->as_string;
Ivan
-----
Iyengar Yoga Resources / GT Plugins
Code:
#!/usr/bin/perl use strict;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
my $ua = LWP::UserAgent->new;
my $req = POST 'http://www.domain.com/script.pl',
['key1' => 'value1',
'key2' => 'value2',
'key3' => 'value3' ];
my $res = $ua->request($req);
print $res->as_string;
Ivan
-----
Iyengar Yoga Resources / GT Plugins