my $dbh=DBI->connect($dsn,$opts{user}{value},$opts{password}{value}) || die($!);
####
my $dbh = DBI->connect( $dsn, $opts{ user }{ value }, $opts{ password }{ value } ) or die $DBI::errstr;
####
crash_n_burn() if $cl_part=~/^-h$|^--help$|^-h$/i;
####
$s_insert=<##
$s_insert=<