From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

#!/usr/bin/perl
use strict;
use lib '[% demo_root %]/lib';
use Apache ();
use Apache::Constants qw(:response);
use Apache::Util ();
use DBI;
DBI->install_driver('SQLite');
use Class::DBI ();
$Class::DBI::Weaken_Is_Available = 0; #disables unique-object stash for now
Class::DBI::Factory->add_status_menu;
use Template ();
use POSIX ();
1;