It worked like this:

INSERT INTO ......... SELECT @@IDENTITY as 'Identity';
[download]

All in one statement, so after running execute, I did a call to fetch and got the identity. Nice!

I really should go to bed - too much of a Perl(Monk) addict.

$ perldoc perldoc