#!/usr/bin/perl print "Cache-Control: no-cache\n"; print "Content-type: text/html\n\n"; print ""; print ""; print "Hello, Perl!"; print ""; print ""; print "

From John De Castro - Hello, Perl!

"; print "

This page was generated with the Perl programming langauge

"; $date = localtime(); print "

Current Time: $date

"; # IP Address is an environment variable when using CGI $address = $ENV{REMOTE_ADDR}; print "

Your IP Address: $address

"; print ""; print "";