-----Original Message-----
From: Sally [mailto:[EMAIL PROTECTED]]
Sent: 14 June 2001 09:54
To: perl
Subject: mystery
I got the following code from a tutorial. When I uploaded (FTP) it as a perl
file I got more errors than you could shake a stick at. When I uploaded it
as an html file it sort of worked, ie it printed out the "Hello world" but
it printed out everything else too. I think I understand why it worked as
html, but I don't understand why it didn't work as perl. Any suggestions
would be appreciated, and if you were the one who wrote this code on the
tutorial, please can you offer suggestions as to why code may fail.
#!/usr/bin/perl -wT
use strict;
&error;
#hellocgi
print "Content-type: text/html\n\n";
&error;
<HTML>
&error;
<HEAD>
<TITLE>Hello, world!</TITLE>
</HEAD>
&error;
<BODY>
<H1>Hello, world!</H1>
</BODY>
&error;
</HTML>
sub error {
my( $q, $error_message ) = @_;
print $q->header( "text/html" ),
$q->start_html( "Error" ),
$q->h1( "Error" ),
$q->p( "Sorry, the following error has occurred: " );
$q->p( $q->i( $error_message ) ),
$q->end_html;
exit;
}
