Select Code to Download

$tok_inf = $tok_par->get_token ;

$tok_typ = shift @{$tok_inf};

($tag_nam, $tag_att, $tag_seq, $tag_raw) = @{ $tok_inf } ;

$title =  $tok_par->get_text() || "<NO TITLE FOUND>";