print $FindBin::Bin . "\n" ;

##/foo/jcode.pl
#!/usr/local/bin/perl -w
print 'jcode.pl' . "\n" ;

##/bar/bar.pl
#!/usr/local/bin/perl -w
use lib '/絶対パス/foo' ;
#use FindBin ;
require 'foo.pl' ;
print 'bar.pl' . "\n" ;
print $FindBin::Bin . "\n" ;
それとも俺、完全に読みちがえてる？