my ($red,$green,$blue) = (100,100,100); #or whatever
$hex = sprintf("%x%x%x",$red,$green,$blue);