Source

servo / servo-go

Full commit
#!/usr/bin/perl
use warnings;
use strict;
use Servo::RobotEQ;

my $dev = shift;
my $channel = shift;
my $position = shift;

my $servo = Servo::RobotEQ->new($dev);

$servo->position($channel, $position);

for (1..10)
{
	my ($c1,$c2) = $servo->counters();
	print "$c1 $c2\n";
	sleep 0.5;
}