Send data to the serial port

sendserial.pl

#!/usr/bin/perl
#
# See also: http://rasterweb.net/raster/2011/01/17/perl-arduino-shiftbrite/
#

use Device::SerialPort;

my $port = Device::SerialPort->new("/dev/tty.usbmodem1d21"); # ymmv here...
$port->databits(8);
$port->baudrate(9600);
$port->parity("none");
$port->stopbits(1);

sleep(3);

for ($i = 0; $i <= 9; $i++) {
	print $i . "\n";
	$port->write("$i");
	sleep(1);
}

exit;