6000 Fonts

#!/usr/bin/perl
# tested on WindowsXP
# perl  v5.8.3

use strict;
use warnings;
use LWP::Simple;
use HTML::TokeParser;

use constant BASE => 'http://www.typenow.net/';

my @alphabet = ('b'..'z');

  for ( @alphabet )
    {
      my $alpha = $_;
      my $html = get(BASE . $alpha . '.htm');
      print BASE . $alpha . '.htm' . "\n";
      my $page = HTML::TokeParser->new(\$html);
     
        while (my $token = $page->get_tag("a")) 
           {
            my $url = $token->[1]{href} || "-";
            my $file = $url;
            $file =~ s/^.+\///;
            
              if ($url =~ /zip$/i)
                {  
                  print  "\t Saving" . BASE . $url  . qq` as $file \n`;
                  getstore( BASE . $url,$file) || die $!;
                }                
     }
  }