Help for this page

Select Code to Download

Select or download this

#! c:\perl\bin -w

use strict;
...
while (my $token = $p->get_token) {
    print $token->[2]{'href'}, "\n" if ($token->[1] eq 'a');
    }

Select or download this

 <td nowrap> <font size="-1"><a href="/home.cfm" target="_top" class="
+novisit">Home</a>
         &nbsp;|&nbsp;<a href="/SpecimenSearch.cfm" target="_top" clas
+s="novisit">Specimen&nbsp;Search</a>