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

my $serial = Device::SerialPort->new( "/dev/ttyS0");

my $i = 0;

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

# Send request
while(1){
        $serial->write(80);
        sleep 1;
        $serial->write(40);
        sleep 1;
        $serial->write(100);
        sleep 1;
        print $i++;
        print " senden\n";
        if ($i==255){
                $i=0;
       }