my $port = Win32::SerialPort->new ("COM2");