すごく簡単にログインできるし、LWP::UserAgentのサブクラスなのでcredentialsも同じように使える。 メモメモ。 #!usr/bin/perl use strict; use utf8; use warnings; use Encode; use WWW::Mechanize; my $mech = new WWW::Mechanize; my $user_name = "ユーザ名"; my $password = "パスワード"; $mech->credentials('ドメイン:ポート番号','Auth Test',$user_name,$password ); $mech->get("表示したいURL"); print $mech->content(); WWW::Mechanize 日本語のリファレンス的なもの http://digit.que.ne.jp/wor