#!/usr/bin/perl
use Net::CDDB;


my $disc_data = `./discid`;
chomp($disc_data);

    
    my($cat,$disc_id,$artist,$title) = cddb_query($disc_data);
    
    
    print "Category: $cat\n";
    print "DiscID  : $disc_id\n";
    print "Artist  : $artist\n";
    print "Title   : $title\n";
    
    
    my($title,@tracks) = cddb_read("$cat $disc_id");
    my $num_tracks = $#tracks + 1;
    
    
    print "Album: $title\n";
    print "$num_tracks tracks\n";
    foreach (@tracks) {
    $num++;
    print "$num. $_\n";
    }