use Audio::Wav;
my $wav = new Audio::Wav;
my $read = $wav -> read( 'input.wav' );