Help for this page
<select name="filter1" class="mttextinput"> <option value="" selected></option> ... <option value="Subject">Subject</option> <option value="Post">Post</option> </select>
$mech->select('filter1', 'Post') || die "$!";