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;

$thumbnailheight = sprintf ("%.0f",$height / $relation);

$thumbnailwidth = sprintf ("%.0f",$width / $relation);

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

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

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

my $jpeg_data = $lit->jpeg;