#!/usr/bin/perl

eval 'exec /usr/bin/perl  -S $0 ${1+"$@"}'
    if 0; # not running under some shell

use YAML qw(LoadFile);

my $yaml = shift || die 'Andest el argumento?';

-e $yaml || die "Fale, pero ese fichero no existe";

my (@check) = LoadFile( $yaml );

if (@check) {
  use Data::Dumper;
  print Dumper(@check);

}
