Select Code to Download

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=<<EOT;
/*
...
delimiter //
create procedure insert_table (
EOT

  $s_insert=<<EOT;
/*
...
delimiter //
create procedure insert_$table (
EOT