#!/usr/bin/perl
use strict;
use YAML::Tiny;

my $orders_yam = "./customers.yml";

#### TEST a YAML file
my $yaml = YAML::Tiny->new();
### Open the config
my $yaml = YAML::Tiny->read( "$orders_yam" ) or die "Couldn't read file: errno($!) : errstr =", YAML::Tiny->errstr;
my $root = $yaml->[1]->{email};
print "\nFirst item is: $root\n";