#######!/usr/bin/perl
use strict;
use warnings;
use Shell;

 my $logfile = "...";
 my $run;

 open $run, ("tail -f $logfile") or die " El fichero $logfile no tiene datos" and exit;

 while (<$run>) {
    ...
 }

close ($run);

open $run, $logfile or die " El fichero $logfile no tiene datos" and exit;