use GD;
$image = GD::Image->new("myimage.jpg");
($width,$height) = $image->getBounds()
$newimage = new GD::Image(100,100);
$newimage = copyResized($image,0,0, 0,0,100,100,$width,$height);
open(IMG, "new.jpg") or die "Can't open output: $!";
binmode IMG;
print IMG $newimage->jpeg;
close IMG;