use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->agent_alias('Windows Mozilla');

$title ="Château";

$result = $mech->get($WineURL.$ID);
die "GET failed\n" unless $result->is_success;

$mech->field('frmFieldName[title]', $title);
$result = $mech->submit;
print $mech->value('frmFieldName[title]');