#!/usr/bin/perl -w use DBI; use CGI qw/:all/; use warnings; use strict; $country = param('country'); print "Content-type: text/html\n\n"; print '', "\n"; print "