sub Socket	{
    my ($variable, $sock)=@_;

    if ($alarmtype =~ "WARNING")	{
		$alarmtype = "NOTIFICATION";
    }
    elsif ($alarmtype =~ "HALT")	{
		$alarmtype = "SHUTDOWN";
    }
    my $msg= "$alarmtype\r\n$eqpid\r\n$eqpid-$chamber\r\nMW\r\nTriant Parameter Out of Bound. \r\nTCOM:\r\nN\r\nAlarmType='$alarmtype' $sensor on recipe $recipe is out of bound. Signal_Level = $signal_level Lower = $alarm_lower_limit Upper = $alarm_upper_limit Code = $code \r\nI\r\nSTOP\r\nPHOT\r\n";
    sendToLog ("TCOM socket: $msg") ;
    $sock->send($msg );
        return ("TRUE");
}