use GD;
use warnings;

my $bild = "";
my $image = "";
   $image = GD::Image->newFromJpeg("DSC_3944.JPG") or die "1";
   ($width, $height) = $image->getBounds();   #print $width." ".$height;
   $hoch  = $height / $width * 950;           #print $hoch;
   $bild  = GD::Image->new(950, $hoch) or die "2";
   $bild -> copyResampled($image,0,0,0,0,950,$hoch,$width,$height) or die "3";
   $quality = 80;
   my $jpegdata = $bild->jpeg($quality);
   open(FILE,">Bild_neu.jpg") or die "4";
   binmode FILE or die "5";
   print FILE $jpegdata;
   close(FILE) or die "6";
   exit;