Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;                              # Always use strict.
...
  my $LIBPATH = File::Spec->catdir( $BASEPATH, "lib" );
  eval " use lib '$LIBPATH'";
}

Select or download this

BEGIN {
  use File::Basename;
...
  ( undef, $BASEPATH, undef ) = fileparse( $PROGRAM );
  eval " use lib '$BASEPATH'";
}