Help for this page

Select Code to Download

Select or download this

open $logfh, '<', $logfile;
my $logpos;
...
  sleep 1;
  seek $logfh, $logpos, 0;
}