#!/usr/bin/perl 
use strict; 
use Pod::Usage; 
use Getopt::Std; 
use Win32::SerialPort; 
use Getopt::Long;
use threads;
use Thread::Queue;
use Tk;
use Tk::Pane;

use FindCOM;
use SetThreads;
use TkWindow;
use Xport;
use tst;

# program name and version

our $ImePrograma;
our $Verzija;

$ImePrograma="RS232";
$Verzija="1.1215";

&FindCOM;
&SetThreads;