#!/usr/bin/perl -w

use strict;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new();
$mech->get("http://some.domain.tld/form.html");

foreach ($mech->forms) { print $_->value,"\n" foreach ($_->find_input(undef,'option')); }