#!C:/perl/bin/perluseCGIqw(:standard);useMysql;printheader();#Import the CGI parameters into the $Q structureimport_names();#Connect to Andrew's MySQL server at Napier Universitymy$dbh=DBI->connect("dbi:mysql:database=gisq;host=pc236nt.napier.ac.uk;port=3306","scott","tiger");my$sth=$dbh->prepare("SELECT DISTINCT region FROM cia");$sth->execute;print"<h1>Here are some regions</h1>\n";while(my($region)=$sth->fetchrow_array()){print"<a href='?region=$region'>$region<a><br/>\n";}if($Q::region){print"<h1>Here are the countries of $Q::region</h1>";my$sth=$dbh->prepare("SELECT name, population FROM cia where region=?");$sth->execute($Q::region);while(my($name,$pop)=$sth->fetchrow_array()){print"$name $pop<br/>\n";}}$dbh->disconnect;