use GD;
    use GD::Tiler qw(tile);

    my $GDimage = newFromPng GD::Image("foo.png");
    my ($width,$height) = $GDimage->getBounds() ;

    #... i still do some stuff with GD here
   
    my $png_data = $GDimage->png;
  
    my $explimg = tile(
            Images => [ $png_data, "bar.png"],
            Background => 'transparent',
            Width => $width,
            Height => $height,
            Coordinates => [
                    0, 0,
                    $mx, $my, ],
            
            );
    
    #START I would like to save this and directly use $explimg to resize.
    open (DISPLAY, ">temp.png");
    binmode DISPLAY;
    print DISPLAY $explimg;
    close (DISPLAY);    
    #EOF START

    my $old = Image::Resize->new("temp.png");
    #my $old = Image::Resize->new($explimg); does not WORK!!!
    my $new = $old->resize(800, 600);   
    
    open (DISPLAY, ">final.png");
    binmode DISPLAY;
    print DISPLAY $new->png;
    close (DISPLAY);