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