#! /usr/bin/perl

use strict;
use warnings;
use DBI;

my $dbh =  DBI->connect( @connect_param );
my $data = $dbh->selectall_arrayref( 'SELECT * FROM country_info' );

print "Content-Type: text/x-csv\n\n";
for (@$data) 
{
  print join ",", map { "\"$_\"" } @$_;
  print "\n";
}