$query = sprintf("INSERT INTO %s (%s) values (%s)",
$table, join(",", keys(%attrs)),
join(',', values(%attrs)));
$dbh->do($query) or die $dbh->errstr;
$query = sprintf("INSERT INTO %s (%s) values (%s)",
$table, join(",", keys(%attrs)),
join(',', values(%attrs)));
$dbh->do($query) or die $dbh->errstr;