use Win32::OLE;
use Win32::OLE::Const;
my $xl = Win32::OLE::Const->Load("Microsoft Excel");
foreach my $const (sort keys %$xl) {
    printf "$const = %s\n", $xl->{$const};
    #printf "sub $const { %d }\n", $xl->{$const};
}

##</code><code>##

sub constname { NNN }