#!/usr/bin/perl -w 
 
use strict; 
 
for (1..273) { 
    `wget http://www.my-site.com/mydir/?Page=$_`; 
} 

##</code><code>##

use LWP::Simple qw(mirror);
for (1..273) {
  mirror "http://www.my-site.com/mydir/?Page=$_", "file$_";
}