#!/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); }