#!/usr/bin/perl -w
use strict;
use HTML::TokeParser;
my $p = HTML::TokeParser->new( *DATA );
for (my $token = $p->get_tag("select")) {
my $select = $token->[1]{name} ;
print "$select\n";
}
while (my $token2 = $p->get_tag("option")) {
if ($token2->[1]{selected}) {
my $option = $p->get_text("option");
print "$option\n";
}
}
__DATA__