Select Code to Download

use Image::Magick;

...

$filename = "test.png";
$image->Write("$filename");

use GD;

...
open(IMAGE, ">test.png") or die;
binmode IMAGE;
print IMAGE $im->png;