use 5.010;
use Audio::Wav;

my $file1 = Audio::Wav->read("file1.wav");
my $file2 = Audio::Wav->read("file2.wav");

say "Files same length (in seconds)"
  if $file1->length_seconds == $file2->length_seconds;

say "Files same sample rate"
  if $file1->details->{sample_rate} == $file2->details->{sample_rate};