Hello Brothers,
I am relatively new to perl and this is my first post in this forum, so please forgive my question style, broken English and my inexperience with Perl. I have searched all day a solution for the problem below and I am now reaching the total desperation.
I am using DBI to insert a new record into a table on MSSQL server db. The table contains a Primary key auto generated using the NewID() function.
My question is how to retrieve the ID of the new record just created using DBI. I have tried using the code below:

my $sql = "mystoredprocedure 'value1','value2'";<br>
my $sth = dbh->prepare($sql);<br>
my $ret = $sth->execute();<br>
my $recs = $sth->fetchrow_hashref();<br>
[download]

Obviously the code above ends where the fetchrow is.

I think that the 2 solutions below are feasible however I would like to see if there is a more ‘elegant’ and appropriate solution for the problem above.
1 – Execute a ‘select newid()’ , retrieve the ID and use that as a primary key for the new records (fast)
2 - Search the table using a select with the value that I have just inserted (slow)

Thank you in advance