#! /perl/bin/perl
#
# The Xitami server looks for the first line of this file
# (the #!/perl/bin/perl) to determine that this is a perl script
# (so you probably need it!).
# This is a simple CGI program written in perl.
# No input is expected - this just prints out some stuff.
# Start by sending back an HTTP header that says we are
# sending HTML. The 2 newlines are necessary - this is how
# the browser knows we are not sending more headers!
print "Content-type: text/html\n\n";
# now send back an HTML document
print "Simple CGI in Perl\n";
print "This document was created by a simple perl CGI program
\n";
print "Here is a list of my favorite integers
\n";
print "\n";
for ($i=0;$i<10;$i++) {
print "- $i\n";
}
print "
\n";
print "