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_Completed1.xls") 
my $Sheet = $Book->Worksheets(Quarantined_IMSIHLR2_20070611_Completed1);

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