#!/usr/bin/perl -w
##
## printenv -- demo CGI program which just prints its environment
##
use constant doc1 => "$ENV{'DOCUMENT_ROOT'}/bla/bla/bla";
use constant doc2 => "$ENV{DOCUMENT_ROOT}/bla/bla";
print "Content-type: text/html\n\n";
print "doc1:", doc1, "<br>doc2: ", doc2, "<br>\n";
...