#!/usr/bin/perl
use warnings;
use strict;
use YAML::XS qw(LoadFile Dump);

my $ref_LOG = LoadFile("modules/patterns.data");
print Dump($ref_LOG);