A First Step: Retrieve the Data 

#!/usr/bin/perl

use strict;
use warnings;

use LWP::Simple qw(get);

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

my $html = get($phonelist_url);

print $html;