package fw::env;
@ISA = qw(Exporter);
@EXPORT = qw(
             %cfg
             $cgi
             $dbh
            );
use CGI qw( :cgi -unique_headers );
use DBI;
use CGI::Carp 'fatalsToBrowser';
use Dotenv; 

%cfg = %{ Dotenv->parse( '../cfg.env') };

$cgi = new CGI;

$dbh = DBI->connect($cfg{db_name},$cfg{db_user},$cfg{db_passwd}) or die("cannot connect to $cfg{db_name}");

$stmt = " SET NAMES UTF8";	
$cursor = $dbh->prepare($stmt);		
$rc = $cursor->execute;	

1;