Installed Win32::SerialPort. Works ok.Now i dont understand the if( ) part in while loop in code above. Can someone please explain it a bit or help with little code snippet. I have no previous background in perl. Done some Python and C thougth.