LWP::UserAgent で POST メソッドを利用する際の簡単なサンプル

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Encode;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);

my $user = 'username';
my $pass = 'passowrd;

my $url     = 'http://www.example.com/cgi-bin/dummy.cgi';
my $referer = 'http://www/examole.com/';

my %params = (
    userid   => $user, # User ID
    password => $pass, # Password
);

# POST のパラメータを渡す際に [] を忘れないようにする
my $request = POST($url, [%params]);
$request->referer($referer);

my $ua = LWP::UserAgent->new;
$ua->timeout(30);
$ua->agent('Mozilla');

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

if ($response->is_success) {
    #print $response->as_string;
    print $fp $response->content;
} else {
    print $response->status_line, "\n";
}