use Win32::OLE::Const;
# may need to adjust version number depending on what you have installed
my $const = Win32::OLE::Const->Load('Microsoft Office 12.0 Object Library');
...->AddShape($const->{msoShapeRectangle}, ...);