#!/usr/bin/perl -w
use strict;

use Audio::FLAC::Decoder;

my $FLAC_FILE = shift;

my $decoder = Audio::FLAC::Decoder->open($FLAC_FILE);
#warn $decoder->bitrate;
#exit;
my $buffer;
while (my $len = $decoder->sysread($buffer, 1) > 0) {
    print $buffer; #$len; # ord $buffer . "\n";
}