cs7793@v25:~#perl -e 'use FindBin'

opendir(./..): Permission denied at /usr/libdata/perl/5.00503/FindBin.pm line 97

cs7793@v25:~#perldoc -m FindBin|grep VERSION

$VERSION = $VERSION = "1.42";

cars7793@v25:~#perldoc -m FindBin|perl -ne 'print if $. == 97'

   $Bin    = $RealBin    = getcwd();

cs7793@v25:~#perl -e 'use Cwd; print Cwd::getcwd'

opendir(./..): Permission denied at -e line 1

cs7793@v25:~#perldoc -m Cwd |grep  VERSION

$VERSION = '2.01';

cs7793@v25:~#