validate YAML

yaml_validate.pl

#!/usr/bin/perl -w

use strict;
use warnings;
use YAML;
use Data::Dumper;

my $slurp = do { local $/ ; <> };

my $data = Load( $slurp ) ;

print Dumper( $data );

print $slurp;