#!/usr/bin/env perl
use strict;
use warnings;
use MusicBrainz::DiscID;

my $discid = MusicBrainz::DiscID->new();
if ( $discid->read() == 0 ) {
    print STDERR "Error: " . $discid->error_msg() . "\n";
    exit(1);
}

print "CD TOC @ https://musicbrainz.org/cdtoc/" . $discid->id() ."\n";