How to translate following VBA code to perl code 

 Charts.Add
 ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
 ActiveChart.SeriesCollection.NewSeries
 ActiveChart.SeriesCollection(1).XValues = "='Sheet1'!R2C1:R801C1"
 ActiveChart.SeriesCollection(1).Values = "='Sheet1'!R2C2:R801C2"