perl -MFindBin -le 'print $FindBin::Bin'
You do realize that this tells FindBin to look for the location of the script in your file system but that this script isn't in the file system at all, it is just on the command line. So FindBin simply notes that the script name was '-e' which probably means there is no script so it simply returns getcwd()?
So it isn't really testing FindBin much at all. Almost none of the code used in the original situation is used in your test case (then again, almost none of the code used in the original situation is of any value in finding the location of a Perl script, but that is another story).
-
tye 