Select Code to Download

#my $ref = tie *DIAG,"File::Tail",(
#    name        => $Config->{'_'}{'DIAGFILE'},
...
  if ($line =~ /is higher than 5 seconds/) {
.
.

#!perl
use strict;
...
  print scalar localtime."- some other log message $_\n" for 0...rand(
+10);
  sleep($s);
}