#!/usr/bin/perl

use strict;
use warnings;
use File::Find;

my $directory = '/tmp/rja/find_test';

find { no_chdir => 1,
       wanted => sub {
           return unless -f;
           open my $fh, $_ or die "Can't open `$_': $!\n";
           my $file=$_;
           /\r\n/ and 
             print "FAILED FILE - $file\n" and return while <$fh>;
       } }, $directory;

__END__