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;
    }
  }
}