#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;

my $ip = 'xxx.xxx.xxx.xxx'; # but with actual real numbers obviously
my $port = '82'; # ie not port 80
my $domain_name = 'www.example.com';


my $ua = LWP::UserAgent->new;

my $target = "http://$ip:$port/";

$ua->default_header('Host' => $domain_name);

my $response = $ua->get($target);

print "Response: ".$response->decoded_content."\n";