#!/usr/bin/perl

use strict;
use warnings;

use LWP::Simple;

my $html = get($ARGV[0]);
my %seens;

while ($html =~ m/href="([^"]*)"/g) {
    my $url = $1;
    next if ($url !~ m@/([^/]*\.jpe?g)$@);
    my $basename = $1;
    next if $seens{$basename}++;
    next if (-r $basename);
    print "Fetching $url to $basename\n";
    getstore($url, $basename);
    select(undef, undef, undef, 0.5);
}