#!/usr/bin/perl
#
# eg1: produce a web page using print
#
use strict;
use warnings;

print "Content-type: text/html\n\n";

print "<html>\n";
print " <head><title>Hello World!</title></head>\n";
print " <body><h1>This is a simple web page.</h1>\n";
print "  <h2>Brought to you the hard way.</h2>\n";
print " </body>\n";
print "</html>\n";
