$dbh = DBI->connect("DBI:$driver:$database:$server:$port",$db_user,$db_pass);
              die "DBI error from connect:", $DBI::errstr unless $dbh;
$sth = $dbh->prepare($command);
           die "DBI error with prepare:", $sth->errstr unless $sth;
$command = "insert into cardbase (id, picture) values ('".$id."', '".$picture."')";
           
$result = $sth->execute;
         die "DBI error with execute:", $sth->errstr unless $result;

$sth->finish;
$dbh->disconnect;

&success;

##</code><code>##

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