use strict; use lib qw(/usr/local/apache/lib/perl); use CGI qw(:standard); use CGI::Carp qw(fatalsToBrowser); use WebDB;