BEGIN {
  use File::Basename;
  use File::Spec;
  my $PROGRAM = File::Spec->rel2abs( $0 );
  ( undef, $BASEPATH, undef ) = fileparse( $PROGRAM );
  eval " use lib '$BASEPATH'";
}