our $VERSION = '1.00';
+use PLP;
+
# CGI initializer: parses PATH_TRANSLATED
sub init {
$PLP::print = 'print';
$PLP::code = PLP::source($file, 0, undef, $path);
}
-# This is run by the CGI script. (#!perl \n use PLP; PLP::everything;)
-#sub everything {
-# clean();
-# cgi_init();
-# start();
-#}
+# This is run by the CGI script. (#!perl \n use PLP::CGI; PLP::CGI::everything;)
+sub everything {
+ PLP::clean();
+ init();
+ PLP::start();
+}
1;