+sub SendHeaders(){
+ $INTERNAL{sentheaders} = 1;
+ print STDOUT "Content-Type: text/plain\n\n" if $DEBUG & 2;
+ print STDOUT map("$_: $header{$_}\n", keys %header), "\n";
+};
+
+sub rawprint(@){
+ print STDOUT (@_);
+}
+
+
+$ENV{PLP_VERSION} = '2.40';