use strict;
use warnings;

print rgb(255,255,255), "\n"; #this gives you 16777215
print sprintf("0x%x", rgb(255,255,255)), "\n";
print rgb(255,0,0), "\n";
print sprintf("0x%x", rgb(255,0,0)), "\n";

sub rgb {
	return ($_[2] * 256 + $_[1]) * 256 + $_[0];
}