sub resize {
  use GD;
  my($data, @size) = @_;
  my $image = GD::Image->newFromJpegData($data, 1);
  my @isize = $image->getBounds();
  my $new_image = GD::Image->new(@size, 1);
  $new_image->copyResampled($image,0,0,0,0,@size,@isize);
  return $new_image->jpeg(75);
}