#!/usr/bin/perl

use warnings;
use strict;

my $site = "http://ftw.generation.no/?n=";

my $cnt = 0;

use LWP::Simple;

for (1 .. 4000)
{
   $cnt++;
   my $page = get("$site$cnt");

   $page =~ m#src="img/(.+)"\s+alt#;
   getstore("http://ftw.generation.no/img/$1", $1);
   print "$1 saved-- $cnt/2584\n";
}