my ($width,$height) = imgsize($pic);
my ($thumbnailwidth, $thumbnailheight) = ($width, $height);

my $max_height = 250;
my $max_width = 300;

my $relation = ($height / $max_height) > ($width / $max_width) 
              ? $height / $max_height  : $width / $max_width;

my $big = GD::Image->newFromJpeg("/usr/local/httpd/htdocs/userpics/$baba");
my $jpeg_data = $big;

if($relation > 1)
{
   $thumbnailheight = sprintf ("%.0f",$height / $relation);
   $thumbnailwidth = sprintf ("%.0f",$width / $relation);

   my $lit = new GD::Image($thumbnailwidth, $thumbnailheight);

   $lit->copyResized($big, 0, 0, 0, 0, $thumbnailwidth, $thumbnailheight, $width, $height);

   $jpeg_data = $lit->jpeg;
}