Someone

#!/usr/bin/perl

use strict;
use warnings;
use LWP 5.64;

# declaration of variables
my $URL;
my @URLS;
my $pseudo_browser;
my $agent = "";

@URLS = qw( 
http://yahoo.com
http://google.com );

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