#!/usr/bin/perl
use warnings;
$n = 0;
for $f (<*.mp3>) {
  $n++;
  ($id) = $f =~ /(.*)\.mp3/g;
  print <<EOF;
<label for="$id">Mic $n</label>
<audio id="$id" controls style="width: 100%;" preload="metadata">
  <source src="/files/2019-09-04-blind-mic-comparison/$f" type="audio/mp3">
</audio>
EOF
}
