#create chart and title:
    my $Chart = $ex->Charts->Add;

    $Chart->{HasTitle} = 1;
    my($title)="Analysis Result ".$fileIndex;
    $Chart->ChartTitle->{Text} = $title;


#define cahrt type:
    $Chart->{ChartType} = "xlLineMarkers";
    $Chart->Location({Where => "xlLocationAsNewSheet"});


#set axis title:
    my $Xaxes = $Chart->Axes("xlCategory", "xlPrimary");
    $Xaxes->{HasTitle} = 1;
    $Xaxes->{AxisTitle}->{Characters}->{Text} =  "X Title";


    my $Yaxes = $Chart->Axes("xlValue", "xlPrimary");
    $Yaxes->{HasTitle} = 1;
    $Yaxes->{AxisTitle}->{Characters}->{Text} =  "Y Title";