#!/usr/bin/perl -w
open my( $fh ), '<', "/usr/local/ffpde/logs/pruebas3.log";
my $buffer;
while (sysread $fh, $buffer, 100) {
        my @lines = split(/"\n"/, $buffer);

        for $l (@lines) {
                print "$l\n";
                sleep 1;
        }

}