#!/usr/bin/perl
use YAML qw(LoadFile);
my %Config;
%Config=LoadFile("YAMLFile.txt");
print $Config{Item1}{SubItem1};