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);