Select Code to Download

#!/usr/bin/perl
use strict;
...
my $yaml = YAML::Tiny->read( "$orders_yam" ) or die "Couldn't read fil
+e: errno($!) : errstr =", YAML::Tiny->errstr;
my $root = $yaml->[1]->{email};
print "\nFirst item is: $root\n";

#customers and order's
--- 
...
total: 7.96
---
email: cowboy@bebop.com