#! /usr/bin/env perl
use strict;
use warnings;

use Audio::FLAC::Header;

my $file = shift    or die "no file specified\n";

my $flac = Audio::FLAC::Header->new( $file );

my $info = $flac->info();

for my $k ( keys %$info ) {
    print "$k: $info->{$k}\n";
}

print "--8<--\n";

my $tags = $flac->tags();

for my $k ( keys %$tags ) {
    print "$k: $tags->{$k}\n";
}

print "--8<--\n";

# siehe Antwort von pq
for my $k ( qw( trackLengthMinutes trackLengthSeconds bitRate fileSize ) ) {
    print "$k: ", $flac->{$k}, "\n";
}