Разыскивается веб-плеер аудио-файлов

use strict;
use warnings;
use 5.010;
use Cwd;
use URI::Escape;

# get current directory
my $directory = cwd();
opendir(DIR, $directory);
# read the list of files
my @files;
for my $one (readdir(DIR)) {
    # since we need only MP3 and OGG audio…
    if ($one =~ m/(\.ogg$|\.mp3$)/) {
        push @files, $one;
    }
}

say "    <table cellspacing=0 cellpadding=2>";
for my $one (@files) {
my $esc = uri_escape($one);
say <<OTHER;
        <tr>
            <td>
                <a href="$esc">$one</a>
            </td>
            <td>
                <audio controls='controls'>
                    <source src="$esc" />
                </audio>
            </td>
        </tr>
OTHER
}
say "    </table>";