use strict;
use warnings;
use CGI;

my $cgi = CGI::->new ();

print $cgi->header ();
print $cgi->start_html ();

#
# whatever you want, do it here ;)
#
print $cgi->h1 ("hello, world!");
print $cgi->hr ();

print $cgi->end_html ();