use Audio::FLAC::Header;
        
my $flac = Audio::FLAC::Header->new("beispiel.flac");

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

        foreach (keys %$info) {
                print "$_: $info->{$_}\n";
        }

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

        foreach (keys %$tags) {
                print "$_: $tags->{$_}\n";
        }