>cd c:\dropbox
>perl -Mautodie -E "local $/; @f = grep { if (-f) { open($fh, '<', $_); <$fh> =~ / connection failed/ && $_ } } glob('*'); say qq[@f];"