my $i = Imager->new(xsize => 1, ysize => 1, channels => 4);
$i->write(fd=>fileno(STDOUT), type=>'png') or die $i->errstr;