use strict;
$|++;

use LWP::Simple;

my @models = qw(
may
ana_beatriz
yamila
isabeli
bridget
melissa
noemie
juliana
marisa
petra
sarah
daniela
audrey
molly
jessica
);

for my $model (@models) {
  for my $id (0..15) {
    my $url = sprintf "http://s.a.cnn.net/si/features/2003_swimsuit/" .
      "images/gallery/popup/%s_%02d.jpg", $model, $id;
    my $file = "$model-$id.jpg";
    print "$url => $file: ";
    print +mirror($url, $file), "\n";
  }
}