use Win32::OLE::Const 'Microsoft.Word';    # wd  constants
$word->Selection->EndKey(wdStory);