#! /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";
}

$ perl t.pl 7041888513520_01_13_96kHz.flac 
MD5CHECKSUM: 0da31b0d1090e1aef3e0a14e8d962e0c
MINIMUMBLOCKSIZE: 4096
BITSPERSAMPLE: 24
SAMPLERATE: 96000
NUMCHANNELS: 2
MAXIMUMFRAMESIZE: 16798
MAXIMUMBLOCKSIZE: 4096
MINIMUMFRAMESIZE: 8735
TOTALSAMPLES: 23416420
--8<--
TOTALDISCS: 1
DATE: 2004-2008
ARTIST: Tone Wik / Barokkanerne
ALBUM ARTIST: 2L artists
PERFORMER: 2L artists
COMMENT: 2L-RR1-SABD  20��08 2L (Lindberg Lyd), Norway
TOTALTRACKS: 19
DISCNUMBER: 1
TITLE: VIVALDI: Recitative and Aria from Cantata RV 679, "Che giova il sospirar, povero core"
ALBUM: 2L Audiophile Reference Recordings
TRACKNUMBER: 13
GENRE: Classical
VENDOR: reference libFLAC 1.2.1 20070917
COMPOSER: Antonio Vivaldi (1678-1741)
--8<--
trackLengthMinutes: 4
trackLengthSeconds: 3
bitRate: 2573090.53497942
fileSize: 78165907