#!/usr/bin/perl -w
use DBI;
use CGI qw/:all/;
use warnings;
use strict;
my $receiver;
my $country = param('country');
if ($country eq "usa") { $receiver ="global\@..."; }
elsif ($country eq "uk") { $receiver ="europe\@..."; }
print "Content-type: text/html\n\n";
print '', "\n";
print "Test-Ausgabe\n";
print "$receiver $country
\n";
print "\n";