S.I. Swimsuit Issue
Urmmm, yeah, if you're into Sports Illustrated Swimsuit issue read on.
#!/usr/bin/perl
# tested on WindowsXP
# perl v5.8.3
use strict;
use warnings;
use LWP::Simple;
use constant BASE => 'http://s.a.cnn.net/si/features/2004_swimsuit/images/gallery/popup/';
my @models = qw`jessicaw veronica jessica molly frankie petra
carolyn fernanda marisa ngela noemie melissa
bridget yamila elsa ana may `;
for (@models)
{
my $model = $_;
mkdir $model || warn $!;
for ( 0 .. 12)
{
my $num = sprintf("%02d", $_);
my $file = $model . '_' . $num . '.jpg';
getstore( BASE . $file , './' . $model . '/' . $file );
}
}
