my $string=$ENV{DOCUMENT_ROOT};