Help for this page
$Slide->Shapes->AddShape({msoShapeRectangle,Left=>72,Top=>72,Width=>25 +2,Height=>48});
Win32::OLE(0.1601) error 0x80020006: "Unknown name" "msoShapeRectangle", "48", "72" and "252" in Get