Circa 1995. The last time I wrote any perlscript in XSI, as it was then known.

$array = $Application->GetMarking();
for $item (@$array) {
	$Application.LogMessage("Marking: $item");
}
#INFO : Marking: kine.local.pos