$ perl -MFindBin -e 'print "$FindBin::Bin\n"'
/home/david/foo/bar