#!/usr/local/bin/perl -w
use strict;
use diagnostics;
use CGI qw(:standard);

print header(), 
        start_html(-title=>"CGI.pm Example Script"), 
                                 h1('Hello World!'), 
                       'is the value of $Firstname', 
        end_html(); 

exit (0);