#! 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';