perl Audio-Scan