Select Code to Download

open my $fh, '>', 'data';
binmode $fh;
...
close $fh;

`convert -depth 8 -size 256x256+0 gray:data data.png`;

my $img = Imager->new(
    type  => 'raw',
...
    model => 'gray'
);
$img->write(file=>'data.png');