use strict;
use warnings;
use diagnostics;
use Win32::OLE;

my $xl = Win32::OLE->new('Excel.Application');
$xl->{Visible} = 1;
my $wb = $xl->Workbooks->Add();
for (2..$wb->Sheets->{Count}) {
	$wb->Sheets(2)->Delete;
}

my @cmd = ("SELECT bug_severity, short_desc FROM bugs");
my $qry = $wb->Sheets(1)->QueryTables->Add({
	Connection  => "ODBC;DATABASE=bugs;DSN=MyODBC;OPTION=0;PWD=sockmonkey;PORT=0;UID=bugs",
	Destination => $wb->Sheets(1)->Range("A1")});
$qry->{CommandText} = \@cmd;
$qry->{Name}        = "Query from MyODBC";
$qry->Refresh({BackgroundQuery => 0});