#!/usr/bin/perl

print <<EndOfRisms;
<td width="50%">
by RISM number<br>
<select name="rism" size="5">
<option value="1502/01">1502/01
<option value="1502/02">1502/02
<option value="1503/01">1503/01
</select>
</td>
EndOfRisms
