#!/usr/bin/perl
use strict;
use warnings;
use FindBin ();
use lib do { (my $dir=$FindBin::Bin)=~s|/foo/|/bar/|; $dir };

##</code><code>##

#!/usr/bin/perl -T
use strict;
use warnings;
use FindBin ();
use lib do { $FindBin::Bin=~m|^(/.*)| or die "Can't find myself"; "$1/../lib" };