sub whoami {
        return (split /\s+/, `/bin/who am i`)[0];
}