if(defined($cgi->param('zip'))) {
        my $zip = $cgi->param('zip');
        binmode $zip;
        open(FILE, ">", $img_dir."imgs.zip") or die $!;
        binmode FILE;
        my $data;
        while(read $zip, $data, 1024) {
                print FILE $data;
        }
        close FILE;
        my $cmd = "unzip ".$img_dir."imgs.zip -d ".$img_dir;
###### 0 ######
        qx($cmd);
###### 1 ######
        unlink $img_dir."imgs.zip";
###### 2 ######
        foreach my $img (glob($img_dir."*")) {
                next if $img =~ /^.{1,2}$/;
                print $img."<br />";
                &doShrinking($img);
        }
        
}

sub getBaseName {
        my $file = shift;
        if($file =~ /^(.+)\/([^\/]+)\.(.{3})$/) {
                return ($1,$2,$3);
        }
}

sub doShrinking {
        my $file = shift;
        my ($dir, $base, $mime) = getBaseName($file);
        my $thumbfile = $dir.$base."_thumb".$mime;
        print $thumbfile."<br />";
        my $src = new Image::Magick;
        $src->Read($file);
        my ($thumb,$x,$y) = Image::Magick::Thumbnail::create($src,450);
        $thumb->Write($file);
        ($thumb,$x,$y) = Image::Magick::Thumbnail::create($src,50);
        $thumb->Write($thumbfile);
}