##

my $baseSpPage = 'http://www.example.com/';

my $mech = WWW::Mechanize->new();

$mech->get("$baseSpPage");

my $html = $mech->content();

my $stream = HTML::TokeParser->new(\$html);

while ( my $token = $stream->get_token ) {
  if ($token->[0] eq 'S') {
    if ($token->[1] eq 'select') {
      print Dumper $token;
    }
  }
}

##

##

$VAR1 = [
          'S',
          'select',
          {
            'onchange' => 'setCookie(this.name,this.selectedIndex)',
            'name' => 'market'
          },
          [
            'name',
            'onchange'
          ],
          '