use DBI;
my $dd = DBI->connect('dbi:Oracle:', 'scott', 'tiger',
  { RaiseError => 1, PrintError => 0 });
my $sth = $dd->prepare("insert into prod (ss) select 1+max(ss) from prod");
$sth->execute;
$dd->disconnect;