my $root = '/homepages/bla/blubb/cgipan';

$root = -e $root ? $root : ($ENV{DOCUMENT_ROOT} || '');