#!c:\perl\bin\perl.exe -w use strict; use Win32::OLE; my $xl=new Win32::OLE('Excel.Application') or die $!; $xl->Workbooks->Open('c:\temp\cats.xls') or die $!; my $cellvalue = $xl->Sheets(1)->Range('A1')->value(); print qq|Content-type: text/html\n\n|; print '' . $cellvalue . ''; $xl->Quit(); #no zombie excels! 1;