#!/opt/bin/perl

require 'serial.pl';

$ser=init_serial('/dev/cua/b',2400,'8n1');

print $ser "FOO!\n";