#!/usr/local/bin/perl
use v5.6.0;
use PLP;

die 'Wrong module version' if $PLP::VERSION ne '3.03';

use vars qw($DEBUG);

use strict;
{
    $PLP::code = '';
    $PLP::sentheaders = 0;
    $PLP::inA = 0;
    $PLP::inB = 0;
    delete @ENV{ grep /^PLP_/, keys %ENV };
}

$DEBUG = 1;

PLP::start();

{
    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;
}