my $bildle = newFromJpeg GD::Image("hochzeitsfrisur0.jpg"); my ($Breite_Quelle,$Hoehe_Quelle) = $bildle->getBounds(); my $Hoehe_Ziel= $Hoehe_Quelle / $Breite_Quelle * 800; my $bild=new GD::Image(800,$Hoehe_Ziel); $bild->copyResized($bildle,0,0,0,0,800,$Hoehe_Ziel,$Breite_Quelle,$Hoehe_Quelle); #Ausgabe im Browser binmode STDOUT; print $bild->jpeg(100); #verkleinertes Bild speichern open(newpic,">gd.jpg"); binmode newpic; print newpic $bild->jpeg(100); close(newpic);