Miscellany

#!/usr/bin/perl

use strict;
use warnings;
use LWP;

# declaration of variables
my $URL;
my @URLS;
my $pseudo_browser;
my $agent = "";
my $response;
@URLS = qw( 
http://yahoo.com
http://google.com );

# create pseudo web browser
$pseudo_browser = LWP::UserAgent->new;
$pseudo_browser->agent("$agent");

foreach $URL (@URLS) {
  $response = $pseudo_browser->get( $URL );
  if ($response->is_success) {
     print $response->decoded_content;
  }
  else {
     print "Error: " . $response->status_line . "\n";
  }
}