-#!/usr/bin/perl -wT -CSDA
+#!/usr/bin/perl -wT
use v5.14;
use warnings;
<title>Music</title>
<meta charset="utf-8">
<link rel="stylesheet" href="/music.css">
+<script async defer type="application/javascript" src="player.js"></script>
+
+<div id="player"></div>
<table border>
<thead>
<tr><th>Title<th>Artist<th>Album<th>Genre<th>Track<th>Year<th>Type
<tbody>
</table>
+
+<pre id="json" style="display: none">{"files":[],"prefix":"/music/"}</pre>
OUT