sub SetRandomBGColor
{
    my @colorset = qw( aqua white yellow lime );
    my $color = $colorset[rand(@colorset)];
    print "<style><!-- body { background-color:$color;} --></style>";
}

# This could then be used to do something like:
#
# <PM SetRandomBGColor>
#