my $myNum = 65000 * (2**32);
my ( $R,$G,$B ) = unpack("nnn", $myNum );
print "\$myNum: $myNum\n(\$R,\$G,\$B): $R\t$G\t$B\n";