{
    my (@imagelist);
    foreach ( 0 .. $#filelist ) {
        print $filelist[$_], "\n";
        my $temp = $mw->Photo( -file => $filelist[$_] );
        push( @imagelist, $temp );
    }
    eval {
        my $thumb = $mw->Thumbnail(
            -images  => [@imagelist],
            -ilabels => 1
        )->pack;
    };
    warn($@) if ($@);
}

##</code><code>##

 $thumbs{0}->blank;
 $thumbs{0}->read($info{'admin'}{'thumbnail'});

##</code><code>##

sub make_thumbs{

my @pics = <pics/*.jpg pics/*.gif pic/*.png>;
my $imager = Imager->new();

foreach my $pic (@pics){
   my ($basename,$path,$suffix) = fileparse($pic,@exts);
   $info{$basename}{'key'} = $basename;
   $info{$basename}{'name'} = $basename;
   $info{$basename}{'pic'} = "pics/$basename.jpg"; #convert to jpg
   $info{$basename}{'thumbnail'} = "thumbs/$basename.jpg";

$imager->open(file=>$pic) or die $imager->errstr();

# Create smaller version
my $thumb = $imager->scale(xpixels=>100);
print "Storing thumbnail as: thumbs/$basename.jpg\n";
$thumb->write(file=>"thumbs/$basename.jpg",
jpegquality=>30) or die $thumb->errstr;

#Create resized picture
my $resizer = $imager->scale(ypixels=>400);
print "Storing resize as: pics/$basename.jpg\n";
$resizer->write(file=>"pics/$basename.jpg",
jpegquality=>90) or die $resizer->errstr;

}

undef $imager;
print "\n#################endofthumbcreation###############################\n";

}