#!/usr/bin/perl -w

# s1.pl - read a .wav file, dump Audio::Wav object data

use Audio::Wav;
use Trailer;

my $trail   = new Trailer;

my $wav     = new Audio::Wav;
# my $read    = $wav -> read( '/usr/share/sounds/gnibbles/laughter.wav');
my $read    = $wav -> read( '/usr/share/sounds/galeon/clicked.wav');
my $details = $read -> details();

print $trail->ascarray('wav',$wav,'read',$read);

my $data;

while ( defined( $data = $read -> read_raw(1000) ) ) 
{
    print $trail->ascarray('data',$data);
}