use Win32::OLE;
use Win32::OLE::Const 'Microsoft Office';
print msoShapeRectangle . ":" . msoShapeOval;
__END__
results:
1:9