my $db;
if(!($db = new Win32::ODBC('user_logons'))){
	die 'Connect failed: ' . Win32::ODBC::Error() . "\n";
}
 
my $sql = "INSERT INTO [Data] (pc_name, user_name,time+date) VALUES ('$machine', '$LocUsr', GETDATE())";

if ($db->Sql($sql)) {
	print "Sql Error: " . $db->Error() . "\n";
	print "SQL: $sql\n";
}