Retrieving Data: Power + Convenience 

#!/usr/bin/perl

use strict;
use warnings;

require WWW::Mechanize;

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

my $ua = WWW::Mechanize->new();
$ua->agent_alias('Windows IE 6');

$ua->get($phonelist_url);

if($ua->success) {
  print $ua->content;
}
else {
  die $ua->status; # eg: 404
}