##############################
# Image Resize
##############################
use Image::Info qw(image_info dim);
my $img_info = image_info("pictures/$pic_id.jpg");
my ($height, $width) = dim($img_info);
my ($max_width, $max_height ) = (600,800);
if ($height >= $max_height)
{
print qq(
);
}
elsif ($width >= $max_width)
{
print qq();
}
else
{
print qq();
}