use Time::HiRes qw(sleep);
use Device::SerialPins;
my $n = 30;
my $s = 0.2;
my $sp = Device::SerialPins->new("/dev/ttyS0");
$sp->set_txd(1);
if(fork) {
for(1..$n) {
$sp->set_dtr(($_ % 2) > 0);
warn "parent ", $sp->car;
sleep($s);
}
}
else {
for(1..$n) {
$sp->set_rts(($_ % 2) == 0);
warn "child ", $sp->rng;
sleep($s);
}
exit;
}
wait;
# vim:ts=2:sw=2:et:sta