use Win32::OLE::Const;
use Win32::OLE::Const 'Microsoft Excel';

my $Excel = Win32::OLE->new("Excel.Application" , sub { $_[0]->Quit } 
+) 
    or die Win32::OLE::LastError;
$Excel->{Visible} = 1;

    

my $Book = $Excel->Workbooks->Open("C:\\Documents and Settings\\clong\
+\Desktop\\Convert to Text file\\Quarantined_IMSIHLR2_20070611_Complet
+ed1.xls") 
my $Sheet = $Book->Worksheets(Quarantined_IMSIHLR2_20070611_Completed1
+);

$Excel->{DisplayAlerts} = 0;  # avoid being prompted
$Sheet->SaveAs( { FileName => "C:\\Documents and Settings\\clong\\Desk
+top\\Convert to Text file\\test.txt" , FileFormat => xlText } 
+) 
    or die Win32::OLE::LastError;
$Book->Close();
$Excel->Quit;
[download]