#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
=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
 
$/ = "";
$_ = <>;
my $i=0;
 
for (unpack("C*", $_))
{
  print $i++."\t".$_."\t".chr($_)."\n";
}