perl -MWin32::SerialPort -e "print 'OK'"