$ perl -MPOSIX -wE 'say POSIX::cuserid'
linuxer