#!/usr/bin/env perl

# worker.pl

use Device::SerialPort::Arduino;

use warnings;
use strict;

my $Arduino = Device::SerialPort::Arduino->new(
    port     => '/dev/tty.usbmodemFA131',
    baudrate => 9600,
    databits => 8,
    parity   => 'none',
);

my $line = "nothing";
print "Worker running.\n";
while ($line ne "exit") {
    $line = <>;
    if ($line) {
        chomp($line);
        print "I got: $line\n";
        $Arduino->communicate($line);
        next;
    } else {
        $line = "nothing";
    }
    sleep(1);
}
print "Worker finished.\n";

# receive sth from Arduino with delay
# print $Arduino->receive(2), "\n";