Retrieving Data: The Hard Way 

#!/usr/bin/perl

use strict;
use warnings;

require LWP::UserAgent;

my $phonelist_url = 'http://intranet.example.com/phonelist';

my $ua = LWP::UserAgent->new;
$ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)');
$ua->proxy('http', 'http://proxy.example.com:3128');

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

if($response->is_success) {
  print $response->content;
}
else {
  die $response->status_line; # eg: 404 Not Found
}