use Audio::Wav;
my $wav = new Audio::Wav;
my $read = $wav -> read( "$filename.wav" );
my $details = $read -> details();
my $frequency = $details -> {sample_rate};