Try this:

use CGI qw/:standard/;
print header,
      start_html,
      p("The ",font({color=>"red"},"current")," time is ",scalar local
+time),
      end_html;
[download]

The CGI docs are wonderful things -- all this, plus much, much more!

perl -pe '"I love $^X$\"$]!$/"=~m%(.*)%s;$_=$1#$&V"+@( NO CARRIER'