Help for this page

Select Code to Download


  1. or download this
    use vars qw($lib);
BEGIN {$lib = $0; $lib =~ s/[^\/\\]+$//}
use lib $lib . 'lib';
  2. or download this
    use File::Spec::Functions qw( rel2abs catdir );
use File::Basename;
use lib catdir( dirname( rel2abs $0 ), 'lib' );