$tail_id = open(my $tail_fh, "tail -1lf /dev/null 2>/dev/null|")
    || die "Can't check info_file: $!\n";
END{
   kill 3, $tail_id;
}