if( $query->upload('fullimage_file') || $query->upload('thumbnail_file') ) {
my $img_name  			= $query->param('item');
my $full_pic 			= $query->upload('fullimage_file');
my $thumb_pic 			= $query->upload('thumbnail_file');
my $fullname  			= basename($full_pic);
my $thumbname  			= basename($thumb_pic);
my ($F_name, $f_ext) 	= split /\./, $fullname,2;
my ($T_name, $t_ext) 	= split /\./, $thumbname,2;

my $short_name="$img_name\.$f_ext";
my $short_tname="$img_name\_t\.$t_ext";

my $new_name  			= "$doc_root$img_folder/$short_name";
my $new_tname 			= "$doc_root$img_folder/$short_tname";
}

if ($full_pic ne ''){
	open (OUTFILE,">$new_name");
	binmode OUTFILE;
	while ($bytesread=read($full_pic,$buffer,1024)) {
	print OUTFILE $buffer;
	}
}
if ($thumb_pic ne ''){
	open (FILE,">$new_tname");
	binmode FILE;
	while ($bytesread=read($thumb_pic,$buffer,1024)) {
	print FILE $buffer;
	}
}