#!/usr/bin/env perl

use strict;
use warnings;

use YAML::XS;
use Data::Dumper;
use File::Slurp qw.slurp.;

my $f = shift;
my $a = Load(scalar slurp($f));
print Dumper($a);