Select Code to Download

use strict;
use warnings;
...

my $res = $image->Write( filename => "grey.png" );
warn $res if $res;