#! perl -slw
use strict;
use threads;
use GD;

sub rgb2n{ local $^W; unpack 'N', pack 'CCCC', 0, @_ }
my $i = GD::Image->new( 100, 100, 1 );

# async{

    $i->filledRectangle( 0,0, 50, 100, rgb2n( 255, 0, 0 ) );

# }->join;

$i->filledRectangle( 51,0, 100, 100, rgb2n( 0,0, 255 ) );

open O, '>:raw', 'junk.png' or die $!;
print O $i->png;
close O;
system 'junk.png';

##</code><code>##

C:\test>junk999
gd-png:  fatal libpng error: No IDATs written into file
gd-png error: setjmp returns error condition

##</code><code>##

  **   **   **   **   **   **
##**###**###**###**###**###**#
  **   **   **   **   **   **
##**###**###**###**###**###**#
  **   **   **   **   **   **
##**###**###**###**###**###**#
  **   **   **   **   **   **
##**###**###**###**###**###**#
  **   **   **   **   **   **

##</code><code>##

  **   **   **   **   **   **
##############################
  **   **   **   **   **   **
##############################
  **   **   **   **   **   **
##############################
  **   **   **   **   **   **
##############################
  **   **   **   **   **   **

##</code><code>##

  **   **   **   **   **   **
#######**###**###**###**###**#
  **   **   **   **   **   **
############**###**###**###**#
  **   **   **   **   **   **
#################**###**###**#
  **   **   **   **   **   **
######################**###**#
  **   **   **   **   **   **