#!/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);
        print @lines;
        sleep 1;
}