$PortObj=Win32::SerialPort->new("COM1",$quiet);