use strict;
use warnings;
use Win32::SerialPort;

$|=1;

my $appfolder;
my $resfolder;

my $port;
my $serDev;

if ($ARGV[0])
	{
	$serDev = readini("Connection", "COM", $appfolder."config.ini");
	}	
else 
	{
	$serDev = 'COM1';
	}

my $serSpeed    = 9600;
my $serDB       = 8;
my $serPA       = 'none';
my $serSB       = 1;

print "Start Connection\n";

$port = new Win32::SerialPort($serDev);
$port->databits($serDB);
$port->baudrate($serSpeed);
$port->parity($serPA);
$port->stopbits($serSB);
$port->write_settings || undef $port;

print "Send Request\n";

$port->write("LINK:O1I1;END");
#$port->write("MT00RD0000NT");


print "Waiting for reply ";

while (1) {
	print ".";
    my $char = $port->lookfor();
    if ($char) {
        print "->".$char."<-";
    }
    $port->lookclear; # needed to prevent blocking
    sleep (1);
}

print "\nSend close\n";

$port->close();	

print "Finished, please press Enter for exit";

<STDIN>;

exit;