use strict;
use WWW::Mechanize;

my $url = "https://jobs3.netmedia1.com/cp/faces/job_search?null";
my $mech = WWW::Mechanize->new();
print "$url\n";

eval{
    $mech->agent_alias('Mac Safari');
    $mech->get($url);
    $mech->form_name('myForm');
    $mech->select('search_form:category_ext_id','0');
    $mech->field('search_form:continent_id','1');
    my @values = ("25","49");
    $mech->select('search_form:country_id',\@values);
    $mech->submit();
    };