#!perl

use Win32::ODBC;
my $db=new Win32::ODBC('DB_SERVER');

my $sql="INSERT INTO T_Test (C_Data) VALUES ('data');";	#2
$db->Sql($sql);

sleep(20);

$sql="SELECT \@\@IDENTITY AS C_ID;";
$db->Sql($sql);
$db->FetchRow();
print $db->Data("C_ID")."\n";