#should save C:\\work\\perl_WinOle\\sym_text_testdoc.xls as
#       a text or csv formatted document.
#	creates a file with .txt or csv extension, but
#       document is not a tab or comma delimeted text file.

##</code><code>##

use Win32;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
#$file = "C:\\work\\perl_WinOle\\test.csv";
$OutFile = "C:\\work\\perl_WinOle\\sym_text_testdoc.txt";
my $Excel = Win32::OLE->new('Excel.Application', 'Quit');
my $xl = Win32::OLE::Const->Load($Excel);
$Excel->{'Visible'} = 1;         # if you want to see what's going on

my $Book = $Excel->Workbooks->Open( "C:\\work\\perl_WinOle\\sym_text_testdoc.xls" );

$Book->Activate();
$Book->SaveAs($OutFile);
$Book->Close;

##</code><code>##

$document->SaveAs($txt, wdFormatText);

##</code><code>##

$book->SaveAs($txt, excelFormatText);