mb@dennis ~ $ perl -E'say getlogin'
mb
mb@dennis ~ $ cat gl.c
#include <unistd.h>
#include <stdio.h>

int main(void) {
   puts(getlogin());
   return 0;
}
mb@dennis ~ $ gcc gl.c
mb@dennis ~ $ ./a.out
mb