Help for this page

Select Code to Download

Select or download this

sub process_info{
    my ($temp, $year, $info);
...
                  } # end $token->[0] eq "S"
          } # end while
    } # end sub

Select or download this

<!-- Start 1958 -->
<TR id="start">
...
        <TD(503) 555-1212</TD>
        <TD><A HREF="mailto:me@nobody.com">me@nobody.com</A></TD>
</TR>