#!/usr/bin/perl

$pg = 100;
$i = 1;

while ($i <= $pg) {
   $i_str  = sprintf "%03.0f", $i;
   system("curl -C - -o $i_str --user-agent \'Mozilla/5.0 \(Macintosh; U; PPC Mac OS X 10.4; en-US; rv:1.9.0.6\) Gecko/2009011912 Firefox/3.0.6\' http://www.hamcall.net/73/\\\?res=l\\\&yr=1993\\\&mo=01\\\&pg=$i_str\\\&raw=\n");
   $i++;
   sleep 10;
}