encender LED con puerto RS232 LINUX

[Melecio]

encontre este para RS232 en PERL

#!/usr/bin/perl

use Device::SerialPort;
my $port=Device::SerialPort->new("/dev/ttyS0");
my $STALL_DEFAULT=10; # how many seconds to wait for new input
my $timeout=$STALL_DEFAULT;
$port->read_char_time(0); # don't wait for each character
$port->read_const_time(1000); # 1 second per unfulfilled "read" call
my $chars=0;
my $buffer="";
while ($timeout>0) {
my ($count,$saw)=$port->read(255); # will read _up to_ 255 chars
if ($count > 0) {
$chars+=$count;
$buffer.=$saw;
# Check here to see if what we want is in the $buffer
# say "last" if we find it
}
else {
$timeout--;
}
}

if ($timeout==0) {
die "Waited $STALL_DEFAULT seconds and never saw what I wanted\n";
}


por 10 segundos apaga el LED en el pin 6,7

el detalle es que el LED siempre esta encendido al ejecutar este script lo unico que hace es que me lo apaga por 10 segundos y lo vuelve a encender pero debe de ser al reves debe de estar apagado y con el script encenderlo.