$TAINTED = substr($ENV{REQUEST_METHOD}.'',0,0) 
  if defined $ENV{REQUEST_METHOD};