Select Code to Download

    ...
    ## Set the default to truecolor images.
...
    }
    binmode STDOUT;
    print $im->png;

sub rgb2n{ unpack 'N', pack 'CCCC', 0, @_ }

rgb2n( 255, 0, 0 ); ## Red
rgb2n( 0, 255, 0 ); ## Green
rgb2n( 0, 0, 255 ); ## Blue