#! /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";
}
[download]

Use Content-type - application-octet-stream.

#! /usr/bin/perl

use strict;
use warnings;
use DBI;
use CGI;

my $q = new CGI;

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

print $q->header('Content-type=application/octet-stream;name="data.csv
+"');
for (@$data) 
{
  print join ",", map { "\"$_\"" } @$_;
  print "\n";
}
[download]

Neeraj

If you have your data in a csv file the next step is just to put in this sub routine to create an excel file.

If your data is not in a csv but in another type of file format - you can change the 'comma' split part to something else if your data is seperated by just whitespace or another seperater.

The code is just to give you a pointer in the right direction.
You should read the Spreadsheet::WriteExcel module information as well.

The code is below

Um, -- you for re-inventing the CSV parser. The most obvious problem is that CSV fields can be enclosed in quotes, and when so, can contain commas, which should not be considered delimiters. Text::CSV does the right thing.