my ($doc_root) = $ENV{DOCUMENT_ROOT} =~ /(.*)/;