use strict;
use warnings;
use LWP::Simple;

my $baseurl = "http://www.retrosheet.org/";

for (my $i = 0; $i < 100; $i++) {
    mirror("${baseurl}zipfile${i}.zip", "zipfile${i}.zip");
}