#!/usr/bin/perl -w
use strict;

use LWP::Simple;

my $page = get('http://www.example.com/');

print $page;

##</code><code>##

my @ary;
foreach (1..100) {
     push @ary, get("http://www.example.com/$_.html") 
}