gistfile1.pl

my $template = 'Z4 i Z8 i s s i i s s Z4 i';
my @fields = qw(id totallength wavefmt format 
                pcm channels frequency bytes_per_second 
                bytes_by_capture bits_per_sample 
                data bytes_in_data);
my ($line, %values);
read($file, $line, 44);
@values{@fields} = unpack($template, $line);