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