sub _isSecurePath {
  my $f = URI::file->new_abs( shift() );
  my $d = URI::file->new_abs( $ENV{DOCUMENT_ROOT} );

  return $f =~ /^$d/;
}