$ perl -wE 'say POSIX::cuserid' Name "POSIX::cuserid" used only once: possible typo at -e line 1. say() on unopened filehandle cuserid at -e line 1.