##

    use HTML::TokeParser;
    my $p = HTML::TokeParser->new( \$webpage->content );
    
    while (my $token = $p->get_tag("select")) {
        my $select = $token->[1]{name} ;
        print "$select\n";
    }