Perl - Puerto Serial

Puedo leer datos por un puerto serial con Perl.
Gracias por la atencion.

si utilizando la funcion open, ej:

open(PUERTO,\"+>COM1\");

close(PUERTO);

#!/usr/bin/perl -w
use strict;
use Device::SerialPort;

my $serial = Device::SerialPort->new("/dev/ttyS0") || die "No se pudo Habrir el puerto";

$serial->baudrate(2400);
$serial->databits(8);
$serial->parity("none");
$serial->stopbits(1);
$serial->handshake("rts");

# Mandar por el puerto
$serial->write(chr(64)); # Manda un @ por el puerto serial
select(undef, undef, undef, 0.5); # Espera 0.5 Segundos..

$serial->write(10); # Manda un 10 al puerto serial

# Leer el puerto serial

$serial->read(); ## No la he utilizado.. pero asi va.. Buscale poco.:p

# Jaime Alberto Vazquez Aguilar [email protected]

si utilizando la funcion open, ej:

open(PUERTO,"+>COM1");

close(PUERTO);