#!/usr/bin/perl -w

use strict; #Esta linea es para hacer obligatorio la declaracion de variablesuse
use Device::SerialPort; # Declaramos el Modulo para manejo de puertos

my $serial = Device::SerialPort->new("/dev/ttyUSB0") || die "No se pudo abrir el puerto"; # configuracion del Puerto serial USB
$serial->baudrate(9600); # Velocidad del Puerto o Razon de Bits(9600)
$serial->write_settings; #

# Envio de Datos por el Puerto Serial
$serial->write(chr('H')); # Envio de un A al puerto serial.
delay(0.5);

sub delay{ # Funcion para dar una pausa
	my $time=shift; # Variable que indica el tiempo(segundos), Con shift se recoje un parametro a
	select(undef, undef, undef, $time); # Funcion Real que hace la pausa
}
