use LWP::UserAgent; use HTTP::Request::Common qw(POST);my $url = 'http://xxxxxxx/xxx/'; my %formdata = ('user' => 'hogehoge', 'password' => 'password'); my $request = POST($url, [%formdata]);my $ua = LWP::UserAgent->new; $ua->agent("Mozill…

ほげほげ