Oddly, it works for me (I made two fairly trivial changes to the program you listed: I modified the message printed when the open dies and I put the argument for the open in parentheses.
Then generated code looks like this:
<html>
<head>
<title>My Home Page</title></head>
<body bgcolor = blue>
Here we have an HTML page with a paragraph. </body>
</html>
Just for completeness, this is the code I actually used:
#!/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 "<html>\n";
print HTML "<head>\n";
print HTML "<title>My Home Page</title>";
print HTML "</head>\n";
print HTML "<body bgcolor = blue>\n";
print HTML " Here we have an HTML page with a paragraph. ";
print HTML "</body>\n";
print HTML "</html>\n";
close (HTML);
Information about American English usage here and here. Floating point issues? Please read this before posting. — emc
|