Help for this page

Select Code to Download

Select or download this

sub fn1
{
    my ($fh, $ucsearch) = @_;
...

    return $count;
}