#!/usr/bin/perl -w

use strict;
use Ogg::Vorbis::Header::PurePerl;

if (!$ARGV[0]) {
	print "Usage: ogginfo.pl filename\n";
	exit;
}

my $fn = $ARGV[0];

my $ogg = Ogg::Vorbis::Header::PurePerl->new($fn);

foreach my $k (keys %{$ogg->info}) {
	print $k, '=', $ogg->info->{$k}, "\n";
}

foreach my $k ($ogg->comment_tags) {

	foreach my $cmmt ($ogg->comment($k)) {
		print $k, '=', $cmmt, "\n";
	}
}