BEGIN { 
 my ($ROOT) = $ENV{DOCUMENT_ROOT} =~ m!(^.+)/!;
 unshift @INC, "$ROOT/lib";
}