#!/usr/bin/perl -w 
use strict;
use CGI qw/:all/;

print start_html,p({ style => "color: red;"},"Hello world"),end_html;