Select Code to Download

my $dbh = DBI->connect("dbi:driver:database",
    "user","password", 
...
     print "There was an error ($DBI::errstr)\n";
     # do something appropriate
}

my $sql = "INSERT INTO t1 (lsname) VALUES ( ? )";
my $sth;
...
     # do something appropriate
}

 _  _ _  _  
(_|| | |(_|><
 _|