Here's the Full Code. Iam trying to connect to a existing Crystal Report and save it as a excel file.

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);
[download]

Edit: Added <code> tags. larsen