YAML::Tiny でエラーになる yaml ファイルをリストアップする

以下のコードを書いて実行。

use Data::Dumper;
use File::Find;
use YAML::Tiny;

find(\&process, $dir);

sub process {
    my $yaml = $File::Find::name;
    return unless $yaml =~ m/.*\.yaml$/;
    eval {
        my $tiny = YAML::Tiny->new;
        my $data = $tiny->read($yaml);
    };
    if ($@) {
        print "$yaml\n";
        print "$@\n";
    }
}