# Resize uploaded image to 600 wide
my $picture = GD::Image->new($file{'image', 'file'});
my ($srcw, $srch) = $picture->getBounds();
$newh = int ($srch * 600 / $srcw);
my $resize = GD::Image->new(600, $newh);
$resize->copyResized($picture, 0, 0, 0, 0, 600, $newh, $srcw, $srch);