Select Code to Download

$dbh = DBI->connect("DBI:$driver:$database:$server:$port",$db_user,$db
+_pass);
              die "DBI error from connect:", $DBI::errstr unless $dbh;
...
$dbh->disconnect;

&success;

if ($insert_ok) {
&success;} else
{&failure;}