[james@devel3 root]$ perl -e 'print $>,$/, $<, $/';
506
506
[james@devel3 root]$ su root
Password:
[root@devel3 root]# perl -e 'print $>,$/, $<, $/';
0
0
[root@devel3 root]#