Select Code to Download

# Step 1:  Dump the entire document
while (my $tok = $p->get_token) {
    print Dumper($tok);
}

use constant TYPE => 0;
use constant TEXT => 1;
...
    $wanted{password} = trim($next->[TEXT]);
    last;
}