#!/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="convert ".$directory."/".$pic." -resize 150x180 -quality 80% ".$directory."/".$pic;
       print $convert."\n";
       #system($convert);
    }
   }
closedir $dh;
}