#!/usr/bin/perl use strict; use warnings; use CGI qw/:standard/; print "content-type: text/html \n\n"; #The header print header; my $outname = "myhtml.html"; open(HTML, '>', $outname) or die "Couldn't create $outname because $!\n"; print HTML "\n"; print HTML "\n"; print HTML "My Home Page"; print HTML "\n"; print HTML "\n"; print HTML " Here we have an HTML page with a paragraph. "; print HTML "\n"; print HTML "\n"; close (HTML);