script.pl

use warnings;
use strict;

use Win32::OLE::Const;

my $constants = Win32::OLE::Const->Load("Microsoft Office"); # or "Microsoft Office .* Object Library"

foreach my $Key (sort keys %$constants) {
    printf "%-34s: %s\n", $Key, $constants->{$Key};
}

# ----

use Win32::OLE::Const 'Microsoft.Excel';

print "xlXYScatterSmoothNoMarkers = " , xlXYScatterSmoothNoMarkers, "\n";