#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

use Device::SerialPort;

my $port = Device::SerialPort->new('/dev/ttyUSB0');

# 9600, 81N on the USB ftdi driver
$port->baudrate(9600);
$port->databits(8);
$port->parity('none');
$port->stopbits(1);
$port->write_settings();

POLL:
for ($| = 1;;) {
    print 'Enter 1 or 0: ';
    chomp (my $inn = <>);
    given ($inn) {
        $port->write($_)  when [qw/0 1/];
        last POLL         when 'q';
        say 'wrong';
    }
}

Установленные пакеты
Name        : perl
Arch        : i686
Epoch       : 4
Version     : 5.12.3