#!/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";

##</code><code>##

#customers and order's
--- 
email: goose@gmail.com
orders:
	- order: wb090130
	  item: 0001
	  item: 0002
	  price: 3.98
	  downloads: 3
	- order: wb090131
	  item: 0003
	  item: 0004
	  price: 3.98
	  downloads: 5
total: 7.96
---
email: cowboy@bebop.com