#!perl -w

use CGI qw(:standard);
open(Z,"+>>pp.pl") or die "$!";
undef$/;
$_=<Z>;
$_=~s|__END__\n(\d.*)|__END__\n8|o;
seek Z, 0, 0;
truncate Z, 0;
print Z $_;
close(Z);
print "Location: pp.pl?d=1\n\n";