Select Code to Download

   > # this bit assumes the numbers of the files are zero
   > # padded to three zeroes... there is surely a better
   > # way to do this
   > my $f = substr("000".$i,-3,3);

    my $f = sprintf "%03d", $i;