#!/usr/bin/perl

use strict; 
use Music::Artist;

my ($artist) = Music::Artist->search_like(name => '%Beatles%');

print $artist->name,"\n";

foreach ($artist->cds) {
        print "\t", $_->title, "\n";
        foreach my $track ($_->tracks) {
                print "\t\t", $track->songid->name,"\n";
        }
}