my @result = $t->cmd('who');
    if (grep /pkmsqa/, @result){
        ....
    }