#!/usr/bin/perl --
BEGIN { 
    use File::Spec;
    use File::Basename qw' dirname ';
    our $thisf = File::Spec->rel2abs(__FILE__);
    our $thisd = dirname($thisf);
}

use Audio::Wav;

my $wav = "$thisd/../test_tone.wav";

$Audio::Wav::_has_inline ||= $ENV{'--useInlineCanyway'};
$Audio::Wav::_has_inline ||= grep /--useInlineCanyway/ , @ARGV;
warn "Audio::Wav::_has_inline => $Audio::Wav::_has_inline \n";

$|=1;
eval {
    for my $ix ( 1 .. ( 2045 + 10 ) ){
        print "\r$ix ";
        print "\n" if $ix > 2044;
        my $readwav = new Audio::Wav;
        my $read = $readwav -> read( $wav );
        my $src_details = $read -> details();
##	    $read->{handle}->close; ## workaround
        $readwav = undef;
        $read = undef;
    }
} or warn $@;

system qw[ D:/sysinternals/SysinternalsSuite/handle.exe -p ], $$;
__END__