perl2exe -o=example.exe example.pl

##</code><code>##

use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
use Cwd 'abs_path';
use File::Glob;
$root = abs_path($0);
$root =~ s/[^\\]*$//;
$Win32::OLE::Warn = 3;
my $Excel = Win32::OLE->new('Excel.Application', 'Quit');
$Excel->{DisplayAlerts}=0;
my $Bookout = $Excel->Workbooks->Add();
   $Bookout->SaveAs("${root}test.xls");
my $Sheetout = $Bookout->Worksheets(1);
   $Sheetout->Cells(1,1)->{'Value'}="Success";
$Bookout->Save;
$Bookout->Close;
$Excel->Quit;
exit;