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