perl -MFile::ReadBackwards -e 'exit 1 unless File::ReadBackwards->new(shift)->readline =~ /^T/' /tmp/foo