use strict; use lib qw(/usr/local/apache/lib/perl); use CGI qw(:standard escape escapeHTML); use lib qw(/usr/local/apache/lib/perl); use WebDB; use WebDB::PseudEcom;