-{
- no strict;
- PLP::Fields::doit();
- {
- package PLP::Script;
- *headers = \%header;
- *cookies = \%cookie;
- PLP::Functions->import();
- # No lexicals may exist at this point.
- eval qq{package PLP::Script; $PLP::code};
- }
- PLP::error($@, 1) if $@;
- select STDOUT;
- undef *{"PLP::Script::$_"} for keys %PLP::Script::;
- PLP::sendheaders() unless $PLP::sentheaders;
-}