=head1 NAME

dump.pl

=head1 SYNOPSYS

perl dump.pl chimes.wav > chimes.raw

=head1 DESCRIPTION

This routine reads a file and prints out a ascii dump.

=cut

$/ = "";
$_ = <>;

@val= unpack("C*", $_);

for ($i=0; $i < $#val; $i++)
{
  print $i."\t".$val[$i]."\t".chr($val[$i])."\n";
}