$perl -MFindBin
opendir(./..): Permission denied at /usr/share/perl/5.6.1/FindBin.pm line 97