#! perl -w   

      use GD 2.12;

        use Image::GD::Thumbnail;
        use Image::Magick::Thumbnail;
        # Load your source image

  chdir("z:/dir/dir2") || die "could not change directories";

   @filenames = <wbc.01.jpg>;
   foreach my $filename (@filenames) {
	open IN, $filename  or die "Could not open.";
        my $srcImage = GD::Image->newFromJpeg(*IN);
        close IN;
   
        

        # Create the thumbnail from it, where the biggest side is 100 px
        my ($thumb,$x,$y) = Image::GD::Thumbnail::create($srcImage,100);


        # Save your thumbnail
        my $newfilename = 'th'. $filename;
        open OUT, ">$newfilename" or die "Could not save ";
        binmode OUT;
        print OUT $thumb->jpeg;
        close OUT;
}

  chdir("W:/dir") || die "could not change directories";
  
        @filenames = <t*.png>;
        # Load your source image
        foreach $filename (@filenames) {
        my $src = new Image::Magick;
        $src->Read($filename);

        # Create the thumbnail from it, where the biggest side is 480 px
        my ($thumb2,$x,$y) = Image::Magick::Thumbnail::create($src,480);
        $newfilename = 'm'. $filename;
        # Save your thumbnail
        $thumb2->Write($newfilename);
        
    }