insert into table .......... select @@IDENTITY

##</code><code>##

#!/usr/local/bin/perl -w
use DBI;
use strict;

$ENV{'SYBASE'} = '/usr/local/freetds';
$ENV{'TDSVER'} = 70;

my $server = "server";
my $db = "db";
my $user = "sqluser";
my $passwd = "sqluserpasswd";

my $dbh = DBI->connect("dbi:Sybase:server=$server;database=$db",$user,$passwd)
  or die "--$!--\n";

my $sth = $dbh->prepare(' insert into sctemp (scratch) values (42) select @@IDENTITY as foo');
$sth->execute;

my $data =  $sth->fetchrow_hashref;
my $seqid=  $$data{foo};
my $err  =  $sth->errstr;
print "$seqid, $err\n";