#!/usr/bin/perl

###########################################
# printenv.cgi                            #
#=========================================#
# emAlbum v2.0                            #
# Standard Edition                        #
#-----------------------------------------#
# First Created: 2/17/03                  #
# Last Updated: 7/07/03                   #
#-----------------------------------------#
# Written by: Eric Martin                 #
# http://www.emalbum.com                  # 
#-----------------------------------------#
# Copyright (c) 2003 emAlbum.com          # 
# All Rights Reserved                     #
########################################### 

##############################################################################
# Copyright and Licensing Information                                        # 
#============================================================================#
# emAlbum Standard may be used and modified by anyone so long as they keep   #
# this copyright notice and the comments above remain intact. By using this  #
# code you agree to indemnify Eric Martin from any liability that might      #
# arise from its use. Selling the code for this program without prior        #
# written consent is expressly forbidden. Obtain permission before           #
# redistributing this software over the Internet or in any other medium. In  #
# all cases copyright and header must remain intact.  We cannot be held      #
# responsible for any harm this may cause.                                   #
##############################################################################

# Confirm the path to Perl in the first line of this script
# Set the appropriate permissions (755) if needed
# Execute this script
# To help with your server paths, look for the value of DOCUMENT_ROOT

print "Content-type: text/html\n\n<br><br>";
while (($key, $val) = each %ENV) {
        print "$key = $val<BR>\n";
}

print '$>,$<, $), $( = ', "$>, $<, $), $( \n";