my $browser     = LWP::UserAgent->new();
my $source_data = $browser->get( $config{source_file} );
die( "Couldn't GET $config{source_file}\n" ) unless defined $source_data;
print "Got source data\n";
my $results_table;

my @all_results = split /\n/, $source_data->{_content};

for ( @all_results ) {
 next if $_ =~ m/^\#/;
 my ( $site_name, $line_speed, $mgmt_ip, $switch_port, $ro_community, $group,
      $site_code )
   = split /\|/;