Select Code to Download

<%shared>
        ## Create database handle
...
        undef $S;
        $dbh->commit;
</%cleanup>

<%init>
        ## Verfiy we have a cookie with a _session_id
...
                Dealermade::Error::nice_error($m, 'E501');
        }
</%init>

        PerlSetVar MasonAllowGlobals $dbh
        PerlAddVar MasonAllowGlobals $U
...
                SetHandler perl-script
                PerlHandler HTML::Mason::ApacheHandler
        </Location>