Help for this page

Select Code to Download


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