use strict;

use HTML::TreeBuilder;

my $parser = HTML::TreeBuilder->new();
my $tree = $parser->parse( join '', <DATA> );

my $selectname = $tree->look_down(
    "_tag",     "select",
);

print $selectname->attr('name'), "\n";

my $selected = $tree->look_down(
    "_tag",     "option",
    "selected", "selected");

print $selected->as_trimmed_text(), "\n";

$tree->delete();
__DATA__

<TD style="HEIGHT: 29px">

    <select name="cmbPurpose" id="cmbPurpose" tabindex="3">
    <option value="CD">Cell Development</option>
    <option value="MS">Miscellaneous R&amp;D</option>
    <option value="NP">New Package</option>
    <option value="NR">Non R&amp;D</option>
    <option value="PC">New process</option>

    <option selected="selected" value="PD">New product</option>
    <option value="SP">Sustaining Product</option>
    <option value="SW">Software and Platform</option>
    <option value="TD">Technology Development</option>

</select></TD>
[download]