$Start = substr(++($Start="z$Start"),1);

##</code><code>##

#!/usr/bin/perl -w
#-*-perl-*-

use strict;
use LWP::Simple;

my $Pre   = $ARGV[0];      # the URL up to num FIXED
my $Post  = $ARGV[1];      # the URL after num FIXED
my $Start = $ARGV[2];      # starting num INC
my $Max   = $ARGV[3];      # ending num (by request)

until ( $Start > $Max ) {  # starting num until ending num
  my $Url = "$Pre$Start$Post";
  getstore ( 
	    $Url, 
	    "$Start$Post"
	   );
  # below is where the magic happens
  $Start = substr(++($Start="z$Start"),1);
}