you should remove all the quotes from the xlXXX literals. they're constants, not strings. eg:

    $Chart->{ChartType} = xlLineMarkers;
    $Chart->Location({Where => xlLocationAsNewSheet});
[download]

also make sure you have this line at the beginning of your script:

use Win32::OLE::Const 'Microsoft Excel';
[download]

hope this helps...

cheers,
Aldo

King of Laziness, Wizard of Impatience, Lord of Hubris