Since the documentation for Audio::Wav doesn't seem to have anything on this, and since I can't get to the source from here, I would guess that destroying the object (undef $read) would close the file.