$PortObj = new Win32::SerialPort($portname, $quiet) 
       || die "Can't open $portname: $^E\n";    # $quiet is optional