$ perl tg4.pl
site_1 
site_2 
site_3 
site_4 
site_5 
site_6 
site_7 
site_8 
site_9 
site_10 
site_11 
site_12 
site_13 
site_14 
site_14 
$ cd site_14
$ ls
image_1   image_2   image_3   image_4   image_5   image_6   image_7   image_8
...
$ cd ..
$ cat tg4.pl
#!/usr/bin/perl -w
use strict;
use WWW::Mechanize;
use LWP::Simple;
use feature ':5.10';

# get information about images
my $domain = 'http://www.yahoo.com';
my $m = WWW::Mechanize->new(); 
$m->get( $domain);
my @list = $m->images();

# create new folder and download images to it.
my $counter = 0;
my $dir = &DirPP;
for my $img (@list) {
    my $url = $img->url_abs();
    $counter++;
  
    my $filename = "$dir". "/image_". "$counter";  #line 15
    getstore($url,$filename) or die "Can't download '$url': $@\n";
}
sub DirPP {
    use Errno qw/ EACCES /; # permission denied
    my $word    = "site";
    my $counter2 = 1;
    my $name;
    my $made = 0;
    while(1){
        $name = "$word" . "_" . "$counter2";
        $counter2++;
        print "$name \n";
        last if $made = mkdir $name, 0755 ;
        die $! if $! == EACCES;
    }
    print "$name \n";
    return $name if $made;
    return;
}