my $sth=$dbh->prepare("select nextval(?)");
  $sth->execute("seq_name");
  my $id=$sth->fetchrow();
  $sth->finish();