# serialport_conf.pl

use Win32::SerialPort;
use Win32::SerialPort qw( :STAT 0.19 );
use Win32API::CommPort;
use Win32API::CommPort qw(:RAW :PARAM :STAT 0.19 );

my $WL = 600;
if($ARGV[0] > 0) {
	$WL = $ARGV[0];
}

my $ret = open(OUT, "+>COM1");
unless($ret) {
	print("Error in RS232C::Open\n");
	exit;
}

print OUT "GOWAVE $WL\n";

close(OUT);

my $conf_file = 'serialport.conf';
my $tie_obj = tie *PORT, 'Win32::SerialPort', $conf_file  or die "Can't open serialport";


my $result = ClearCommBreak(PORT);
print "res: $result\n";

undef $tie_obj;
untie *PORT;                                 ## DESTROY   ##