Understand::Gui::word()
Returns the word at the cursor position in the current file being edited. Returns 0 (zero) if no file is being edited.
my $word = Understand::Gui::word();