#!/usr/bin/perl

use Data::Dumper;
use YAML qw/LoadFile/;

my $file = shift;
my $struct = LoadFile($file);

print Dumper($struct);