my $doit = $ENV{REQUEST_METHOD} eq 'POST';