#!/usr/bin/perl

umask 0022;
my @dir= glob("*");
 foreach my $dh (@dir){    
  $directory=$dh;
opendir my ($dh), $dh or die "Couldn't open dir '$dh': $!";
my @files = readdir $dh;
   foreach my $pic (@files){    
       if (length($pic)>4) {
       $convert="mkdir ".$directory."/mini";
       system($convert);
       $copy = "cp ".$directory."/".$pic." ".$directory."/mini/".$pic;
       system($copy);
       $convert="convert ".$directory."/mini/".$pic." -resize 64x65 -quality 90% ".$directory."/mini/".$pic;
       system($convert);
    }
   }
closedir $dh;
}