#! /usr/bin/perl

use Data::Dumper;
use IO::File;
use YAML qw ( LoadFile );

my $config_file = "cluster_server.yml";

my $config = LoadFile ( $ config_file );

print Dumper $config;

$qrz_password = $config -> { 'qrz_password' };
$qrz_username = $config -> { 'qrz_username' };

printf "qrz_password: %s\n", $qrz_password;
printf "qrz_username: %s\n", $qrz_username;