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

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