my ($red, $green, $blue) = (int(rand(255)), int(rand(255)), int(rand(255))); print qq{
};