Select Code to Download

#!/usr/bin/perl
use Audio::DSP;
...
$dsp->close();

print "\n\nAverage ",sprintf('%0.2f',$num_tot/$div_tot),"\n";

#!/usr/bin/perl
use warnings;
...
}
#################################################################
__END__