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

$nxt->set_output_state($NXT_NORET,
			$NXT_MOTOR_A, 
			100,
			$NXT_MOTORON|$NXT_REGULATED,
			$NXT_REGULATION_MODE_MOTOR_SPEED,
			0,
			$NXT_MOTOR_RUN_STATE_RUNNING,
			0);