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";

}