use Time::HiRes qw ( setitimer ITIMER_VIRTUAL time );

my $timer_all_seconds = 60; # alle 60 Sekunden

# Ausgabefunktion bei Ablauf des Timers
my $prline;
my $print_line_sub = sub { 
  print $prline, "\n"; 
};
             
# Timersignal zuweisen
$SIG{VTALRM} = $print_line_sub;
# Timer setzen (nach 1 Sekunde alle $timer_all_seconds)
setitimer(ITIMER_VIRTUAL, 1, $timer_all_seconds);

my $command="/usr/bin/testscript
open(my $cmd,'-|',$command);
my $line="";
while ($line = <$cmd>)
{
    $prline = $line;      # aktuelle Zeile für Timer sichern
    #print $line . "\n";  # Ausgabe nun im Timer
}