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