Help for this page
#!/usr/bin/perl use strict; ... $page->init($dbh,$uid); # query database $page->display; }
package my_app::page; # file ./my_app/page.pm ... }; 1;
package my_app::db; # file ./my_app/db.pm ... } 1;