use DBI;

#connect to oracle data base
#blah blah blah

my $sql_cmd = "create sequence seq_the_table;";
$dbh->execute( $sql_cmd );

$sql_cmd = "alter table the_table add ( seq number primary key default seq_the_table.nextval );";
$dbh->execute( $sql_cmd );