Help for this page
$ sudo perl -MPOSIX - $UID print cuserid, " $< $>\n"; $> = shift; print cuserid, " $< $>\n"; __END__