#!/usr/bin/env perl
use strict;
use warnings;
use diagnostics;
use feature qw(say);
use Data::Dumper;
use DbLibTry;

my $dblibtry = DbLibTry->new;
$dblibtry->connect;
my %hash = %{$dblibtry->get_all_songs};
$dblibtry->disconnect;
say Dumper %hash;