my $dbh = DBI->connect(blah) or die $DBI::errstr;
    my $sth = $dbh->prepare('UPDATE MYTABLE SET col1=?,col2=?');
    $sth->execute(@data);

##</code><code>##

    my $dbh = DBI->connect(blah) or die $DBI::errstr;
    my $sth = $dbh->prepare('UPDATE MYTABLE SET col1=?,col2=?');
    $sth->execute(@data);