use CGI::Simple;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

use Db;

my $obj = {};

$obj->{-cgi} = CGI::Simple->new();
$obj->{-cgi}->parse_query_string();

$obj->{-dbh} = Db::ConnectToDb($obj);

&Check($obj);
&Handler($obj);