#!/usr/bin/perl

use Convert::CD::Analyze;

my $toc = new Convert::CD::Analyze path => $ARGV[0];
my $cd = $toc->read;

warn $cd->as_string;