LWP - test website at multiple IPs

LWP - test website at multiple IPs:

'via Blog this'より。 LWPでHostヘッダーを指定したいときには、

my $ua = new LWP::UserAgent;
print $ua->get("http://1.2.3.4/", Host => "www.domain.com")->content;

とするといいみたいです。 VirtualHostでわけているときはこんな感じですね。