use DBI;
use Class::Phrasebook::SQL;
use Data::Dumper;

my $book = Class::Phrasebook::SQL->new(undef,'catalog.xml');
$book->load('MP3');

my $sth = $dbh->prepare($book->get('GET_SONGS'));
$sth->execute('Genesis');

print Dumper $sth->fetchall_arrayref({});