Help for this page
perl -w blah.pl > result.html
sub random_colors { my ($r, $g, $b) = map { int rand 256 } 1 .. 3; ... </table> }; }