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