#!/usr/bin/perl # ----------------------------------------------------------------------------------------- # This script prints out the current working directory of this script. # # ----------------------------------------------------------------------------------------- # To download other useful scripts, or to find web hosting for your web site visit: # # http://www.assortedinternet.com/ # ----------------------------------------------------------------------------------------- # # ----------------------------------------------------------------------------------------- # Author: Brian Teeter # Date: $Date: 2004/04/26 02:31:30 $ # Version: $Revision: 1.1 $ # ----------------------------------------------------------------------------------------- print "Content-Type: text/html \n\n"; print "I am here: " . `pwd`;