print q(<select tabindex="3" name="country"
			  
	my $dbh = DBI->connect('DBI:mysql:userxxxx', 'mysqldatabase', '********') || die "<p>Could not connect to database: $DBI::errstr</p>";
	my $sth = $dbh->prepare('SELECT DISTINCT country FROM country ORDER BY country'); 
	$sth->execute();
	my $result;
	my $numero=1;
	print "<option value=\"0\">Please select an option</option>";
	while ($result = $sth->fetchrow_array())
	{
	print "<option value=\"$numero\"> $result</option>";
	$numero++;
	}
	
	my $datom = param ( 'country' );
	print "<p> $datom</p>";

	$dbh->disconnect();
	print "</select>\n<br>\n";