package LEGO::NXT::USBComm;
use LEGO::NXT::USBComm;
use Data::Dumper;
use LEGO::NXT;
use LEGO::NXT::Constants qw(:DEFAULT);
$comm = new LEGO::NXT:USBComm(0);
$nxt = LEGO::NXT->new( $comm );

  $nxt->set_output_state(
    $NXT_NORET,
    $NXT_MOTOR_A,
    75,
    $NXT_MOTOR_ON|$NXT_REGULATED,
    $NXT_REGULATION_MODE_MOTOR_SPEED,
    0,
    $NXT_MOTOR_RUN_STATE_RUNNING,
    0);
  $nxt->set_output_state( 
    $NXT_NORET, 
    $NXT_MOTOR_C, 
    -75, 
    $NXT_MOTOR_ON|$NXT_REGULATED,
    $NXT_REGULATION_MODE_MOTOR_SPEED,
    0,
    $NXT_MOTOR_RUN_STATE_RUNNING,
    0);