$portObj = new Win32::SerialPort ($PortName) || die "Oh no Can't open $PortName: $^E\n";    # $quiet is optional