$Slide->Shapes->AddShape({msoShapeRectangle,Left=>72,Top=>72,Width=>252,Height=>48});

##</code><code>##

Win32::OLE(0.1601) error 0x80020006: "Unknown name"
    "msoShapeRectangle", "48", "72" and "252" in Get