ungetestet und bleistiftweise so:

$root = $ENV{'DOCUMENT_ROOT'};
$root =~ /^([\w/]*)$/; # <- Ausdruck musst Du anpassen an Deine Umgebung
$root = $1 or die ...;
...