Select Code to Download

use Win32::OLE;
use Win32::OLE::Const;
...
    printf "$const = %s\n", $xl->{$const};
    #printf "sub $const { %d }\n", $xl->{$const};
}

sub constname { NNN }