$sheet->Range("C1:C721")->Select;
my $chart = $workbook->Charts->Add;
$chart->{Name} = "Chart";
$chart->{ChartType} = xlLine;
$chart->SeriesCollection(1)->{XValues} = "=Data!R2C1:R721C2";
$chart->Location(xlLocationAsNewSheet);
$chart = $excel->ActiveChart;
$chart->{HasLegend} = "False;
$chart->Axes(xlCategory)->{MajorTickMark} = xlNone;
$chart->Axes(xlCategory)->{TickLabels}{Font}{Size} = 5;