5 die 'Wrong module version' if $PLP::VERSION ne '3.03';
12 $PLP::sentheaders = 0;
15 delete @ENV{ grep /^PLP_/, keys %ENV };
29 PLP::Functions->import();
30 # No lexicals may exist at this point.
31 eval qq{package PLP::Script; $PLP::code};
33 PLP::error($@, 1) if $@;
35 undef *{"PLP::Script::$_"} for keys %PLP::Script::;
36 PLP::sendheaders() unless $PLP::sentheaders;