my $EXCEL = new Spreadsheet::ParseExcel;
my $URL = "http://www.sysco.com/supplier/DUNS%20Listing.xls";
my $ua = LWP::UserAgent->new();
my $req = HTTP::Request->new(GET => $URL);
my $response = $ua->request($req);
if ( $response->is_error() )
   { printf " %s\n", $response->status_line; }
else
   {
   my $CONTENT = $response->content();<br>
   my $BYTES = length $CONTENT;<br>
   print "$URL successfully retrieved! [$BYTES] bytes...\n";
   }