foreach my $filename ( readdir( DIR ) )
                {
                    my $filepath = "$scan_dir\\$filename";

 	           if ( $filename =~ /\.txt$/i ) {

		   my ($variable)=Read_File( $scan_dir, $filename );
		        
	           Scan_File($variables);
	           my $status=Socket($variable,$sock);
                   
	            }
		   else { # get rid id miscellanous files in this directory
		       unlink "$scan_dir\\$filename" or print ERROR "can't unlink $scan_dir\\$filename $!";
		   }
	        } 

##</code><code>##

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");
}