my $dbh=DBI->connect($dsn,$opts{user}{value},$opts{password}{value}) || die($!);

##</code><code>##

my $dbh = DBI->connect( $dsn, $opts{ user }{ value }, $opts{ password }{ value } ) or die $DBI::errstr;

##</code><code>##

    crash_n_burn() if $cl_part=~/^-h$|^--help$|^-h$/i;

##</code><code>##

  $s_insert=<<EOT;
/*
  Insert SP for $table
*/
drop procedure if exists insert_$table;
delimiter //
create procedure insert_table (
EOT

##</code><code>##

  $s_insert=<<EOT;
/*
  Insert SP for $table
*/
drop procedure if exists insert_$table;
delimiter //
create procedure insert_$table (
EOT