!/usr/bin/perl
BEGIN {
	print STDERR "\n $_\n" foreach @INC;	
}
use strict;
use CGI;
use Data::Dumper;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use web::Home;
use CONF;

$q = new CGI;
print $q->header();	
$dbmgnt_obj = new web::Home($q);	
......