#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;
use HTML::Strip;
use HTML::TableContentParser;

my $upc = $ARGV[0] || die 'UPC required';

my $url= "http://www.amusicarea.com/detail/$upc.html";
my $mech = WWW::Mechanize->new( autocheck => 1 );
$mech->get($url);

my %meta;

my $table = HTML::TableContentParser->new()->parse($mech->content);
my $data = HTML::Strip->new()->parse($table->[7]{rows}[0]{cells}[1]{data});
$data =~ s/\n\s+//;
for my $detail ( split /\n/, $data ) {
    my ($cat, $info) = split /\s*:\s*/, $detail, 2;
    $meta{$cat} = $info;
}

my $song = join '', map {
        HTML::Strip->new()->parse($_->{data})
    } @{$table->[9]{rows}[0]{cells}};
$song =~ s/\n\s*/ /g;
push @{$meta{track}}, $_ for grep $_, split /\s+\d+\.\s+/, $song;

use Data::Dumper;
print Dumper( \%meta );