sub standard {
    my $sth = $dbh->prepare('insert into comic.stuff values (?, ?, ?)');
    for (1..$iter) {
        print "$_\n";
        eval {
            $sth->execute($id, $name, $card);
        };
        print "problemos $@\n" if ($@);
        $id++;
    }
}

sub noeval_proc {
    my $sth = $dbh->prepare('call comic.my_proc(?, ?, ?)');
    for (1..$iter) {
        print "$_\n";
        $sth->execute($id, $name, $card);
        $id++;
    }
}
sub procedure  {
    my $sth = $dbh->prepare('call comic.my_proc(?, ?, ?)');
    for (1..$iter) {
        print "$_\n";
        eval {
            $sth->execute($id, $name, $card);
        };
        print "problemos $@\n" if ($@);
        $id++;
    }
}