use DBI;
use DB2Util;
print "\nCalled DB2Util\n";
my(%database,$user,$password)=CmdLineArgChk(@ARGV);
print "\nConnect to datbase... \n";
my $dbh=DBI->connect($database,$user,$password) ||die "Cannot connect o database
:$DBI:errstr";