BEGIN {
  # Blindly untaint.  Taintchecking is to protect from Web data;
  # the environment is under our control.
  if ($ENV{PERL5LIB} and $ENV{PERL5LIB} =~ /^(.*)$/)
  {
    eval "use lib '$_';"
        foreach (reverse split(/:/,$1));
  }
  if ($ENV{PATH} and $ENV{PATH} =~ /^(.*)$/)
  {
      $ENV{PATH}=$1;
  }
}