$tail_id = open(GET_INFO, "tail -1lf info_file 2>/dev/null|") || die "Can't check info_file: $!\n"; $mw->fileevent(\*GET_INFO, 'readable' => [\&input_from_tail, $mw, info_file]);