#!"C:\xampp\perl\bin\perl.exe"
use CGI;
use Image::Thumbnail;

my $imgdir=  "C:/Users/41786/Documents/recordz1/upload";
my $query = new CGI;

uploadImage('testFileUploadAndThumb.jpg');

sub uploadImage {
    my  $name = shift || '';
    my  $file = $query->param('image');	
    
    open(LOCAL, ">$imgdir/$name.jpg") or print 'error';
    my $file_handle = $query->upload('image');                                
    binmode LOCAL;
    while(<$file_handle>) {        
	print LOCAL;
 }
    close($file_handle);           
    close(LOCAL);
    createImageMagickThumb("$name");	
}


sub createImageMagickThumb {

    my  $filename = shift || '';
    my $t = new Image::Thumbnail(
            size       => 55,
            create     => 1,
            input      => '$imgdir/$filename',
            outputpath => '$imgdir/test.$filename',
    );

    print "Content-Type: text/html\n\n";
    print "outputpath => '$imgdir/test.$filename'";
}