#!/usr/bin/perl -w
##base16's cddb script

%title=();
sysopen(FILEDATA, "$ARGV[0]", O_RDWR) or die "no input";
flock(FILEDATA, 2);

while (<FILEDATA>)
{
$match = <FILEDATA>;
if ($match =~ /^TTITLE(\d+)=(.+)$/) { $title{$1} = $2; }
}

while ( ($key, $value) = each %title) {
    print $key, '-', $value, "\n";
}
close(FILEDATA);