our %cmdlist = (
#...
  'whoami' => {
	  'subaddr'    => &cmd_whoami,
      'need_admin' => 0,
      'need_alive' => 1
	}
#...
);
#...
sub cmd_whoami {
    my ($launcher) = @_;
	if(exists($players{$launcher}))
	{
		say(P_GAMEADV, 'info', $launcher,
	    $messages{'cmds'}{'getJob'},
	    $messages{'jobs_name'}{ $players{$launcher}{'job'} });
	}
	else
	{
		say(0, 'error', $launcher,$messages{'errors'}{'unknown_ply'},$laucher);
	}
}
#...