Quick and dirty YAML validator

validate-yaml.pl

#!/usr/bin/env perl

use v5.10.1;

use strict;
use warnings;

use Try::Tiny;
use YAML::Any qw/ LoadFile /;

my $errors = 0;

while (my $file = shift) {

    try {

        LoadFile($file);

        say "${file}: ok";

    } catch {

        say "${file}: $_";
        ++$errors;

    }

}

exit ($errors > 255) ? 255 : $errors;