Help for this page

Select Code to Download

Select or download this

use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
...
                 );

$response = $ua->request($req);

Select or download this

$filename = "c:/test.pl";
use HTTP::Request::Common qw(POST);
...
my $res = $ua->request($req);

print $res->as_string;