or download this
"my" variable $FH masks earlier declaration in same scope at C:\Users\
+Peter\Delme~~\PerlScratch\noname1.pl line 36.
readline() on unopened filehandle FH at C:\Users\Peter\Delme~~\PerlScr
+atch\noname1.pl line 38.
<tr>
<td>(0)</td>
</tr>