use Win32::ODBC; 
use Win32::OLE;

$ex = Win32::OLE->new('CrystalRuntime.Application', sub {$_[0]->Quit;}) or die "Oops, cannot start Crystal";
$oReport = $ex->OpenReport ('C:\CrystalParameters\Myreportone.rpt', 1) ;
$oReport->{'EnableParameterPrompting'} = 0 ;
$oexportoptions = $oReport->{'ExportOptions'} ;
#######set the Export Options to Export it to Excel file ##################
$oexportoptions->{'FormatType'} = 36 ; 
$oexportoptions->{'DestinationType'} = 1 ;
$oexportoptions->{'DiskFileName'} = 'c:\mytestreportone.xls' ;
#######################################################
$oReport->Export(0);