1) perl -e 'use POSIX; print cuserid'
wsanders

2) perl -e 'print POSIX::cuserid'
adudaren