Select Code to Download

module        :    Optional, but highly recommended.
            A page's perl code can be split out into 
...
postsubmit    :    Sub reference run after the page is displayed. 
params        :     Determines which CGI params are to be kept alive
            between invocations.

#!e:\perl\bin\perl.exe
use strict;
...
    postsubmit => \&write_sub,
    params => []});
RunPages;

sub write_sub {
    my $vars = shift;
...
    $sth = $dbh->prepare ("INSERT INTO entries (id, date, title, entry
+) VALUES ($maxid, $date,$title, $entry)")|| die "$! and $DBI::errstr"
+;
    $sth->execute;
}

sub write_valid {
    my $vars = shift;
...
    unless ($e[-1]){$ret_code |= 2};
    return $ret_code;
}

package Framework;
#!/usr/bin/perl -w
...
    if (DEBUG) {print scalar localtime , " : ", @_, "\n"};
}