$img->Write(file=>\*IMAGE,filename=>$filename);