# in code which calls 'who':
  $reason_for_calling_who = 'whatever';
  $irc->yield('who');
  ...

# in on_who handler:
  if ($reason_for_calling_who eq 'whatever') {
    # complete processing for this case
  } elsif ($reason_for_calling_who eq ...) {
    ...
  }