Select Code to Download

  my $old = Image::Resize->new($explimg);
  my $new = $old->resize(800, 600);

    use GD;
    my $GDimage = newFromPng GD::Image("imago_temp.png");
...
    binmode DISPLAY;
    print DISPLAY $newimage->jpeg(100);
    close (DISPLAY);