#!/usr/local/bin/perl
print "Content-Type: text/html\n\n";
print " \n";
print "Hello, world!";
print "\n";
print "\n";
print "Hello, world!
\n";
print " \n";
$append = 0;
if ($append) { open(MYOUTFILE, ">filename.out");
}
else
{
open(MYOUTFILE, ">>filename.out"); #open for write, append
}
print MYOUTFILE "Testing 1 2 3"; #write text, no newline
print MYOUTFILE "\n"; #write newline
close(MYOUTFILE);