6 die 'Wrong module version' if $PLP::VERSION ne '3.04';
10 $PLP::sentheaders = 0;
14 delete @ENV{ grep /^PLP_/, keys %ENV };
26 PLP::Functions->import();
27 # No lexicals may exist at this point.
28 eval qq{package PLP::Script; $PLP::code};
30 PLP::error($@, 1) if $@;
32 undef *{"PLP::Script::$_"} for keys %PLP::Script::;
33 PLP::sendheaders() unless $PLP::sentheaders;