#!/usr/bin/perl

print <<EndOfComposers
<td width="50%">
by Composer<br>
<select name="composer" size="5">
<option value="Adam von Fulda">Adam von Fulda
<option value="Aichinger">Aichinger
<option value="Alard">Alard
</select>
</td>
EndOfComposers
