my $db = new Win32::ODBC("dsn=A3T;UID=shenriks;PWD=changeme0");
$db->Sql("SELECT SIM_SERIAL_NBR FROM PHYS_EQP WHERE IMSI='310380007269591'");
$db->Sql($SqlStatement);
$db->FetchRow();
$SIM = $db->Data("SIM_SERIAL_NBR");