To write an image in the PNG format to a PERL filehandle, use:

    $filename = "image.png";
    open(IMAGE, ">$filename");
    $image->Write(file=>\*IMAGE, filename=>$filename);
    close(IMAGE);