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.jpg");	
}


sub createImageMagickThumb {

    my  $filename = shift || '';
	my $t = new Image::Thumbnail(
		size       => 100,
		create     => 1,
  		module     => 'Imager',
		input      => "$imgdir/$filename",
		outputpath => "$imgdir/thumb.$filename",
	);
}