$br->get('http://.../sipp.php?thn=2008&kdprop=01'); # $br is initialized from mechanize: my $br = WWW::Mechanize->new(); # Set ->agent_alias('Windows IE 6'); my $resp = $br->content(); $resp =~ s/\x0D//g; # On a mac here, get ^M at the end of each line my @pt_vals = get_proyektemp_values($resp); #Don't want to use mech-dump, so just regexing the newly populated values of the 3rd drop down menu $br->form_name('sipp'); $br->field('proyektemp', "$pt_vals[1]"); $br->submit();