#!/usr/bin/perl # # greeting.pl-- A simple greeting program # http://www.coedu.usf.edu/wwwprog/greetcgidemo.html # # modified -- March 18, 1999 by J. White # Print the header information $ENV{'HTTP_REFERER'} || ($ENV{'HTTP_REFERER'}= "your Web site") ; # Print an HTML response to the user print <

Greetings from the server to $ENV{'HTTP_REFERER'}.\n EOF