Select Code to Download

if ($PortObj->can_wait_modemlines) {
      $rc = $PortObj->wait_modemlines( MS_RLSD_ON );
      if (!$rc) { print "carrier detect changed\n"; }
...
     $ModemStatus = $PortObj->modemlines;
     if ($ModemStatus & $PortObj->MS_RLSD_ON) { print "carrier detecte
+d\n"; }
  }

# controlling outputs from the port
  $PortObj->dtr_active(T);              # sends outputs direct to hard
+ware
  $PortObj->rts_active(Yes);            # return status of ioctl call
                                        # return undef on failure