#!/usr/bin/perl -w

my @names = qw (ana_beatriz
		audrey
		bridget
		chandra
		ehrinn
		elsa
		heidi
		isabeli
		josie
		melissa
		molly
		petra
		shakara
		vanessa
		veronica
		yamila);

my $base_url = qq(http://i.cnn.net/si/features/2002/swimsuit/images/gallery/);
my $suffix = qq(/lg/);
my $ext = qq(.jpg);

for my $name (@names) {
    for (1..10) {
	`wget $base_url$name$suffix$_$ext`;
	`mv $_$ext $name$_$ext`;
    }
}