Select Code to Download

       $p->get_token
           This method will return the next token found in the HTML do
+cument, or "undef" at the
...
             ["C",  $text]
             ["D",  $text]
             ["PI", $token0, $text]

while (my $token = $stream -> get_token()){
   if ($token->[0] eq 'S') { # start tag
...
     }
   }
}