use PerlIO ; open F, '<:crlf', 'data' ;