#!/usr/bin/perl

use DBI;
use CGI qw/:all/;

## Daten einlesen
$country = param('country');

if ($country = "usa") { $receiver ="global\@..."; }
elsif ($country = "uk") { $receiver ="europe\@..."; }
... usw