use DBI;
use DBD::ODBC;

my $dsn = "driver={SQL Server};Server=$dbserver;database=$database;uid=$username;pwd=$password;";

my $cnn = DBConnect($dsn);
my $SQL = "SELECT NEWID()";
my $rs_guid = $cnn->prepare("$SQL");
$rs_guid->execute;