#!/usr/bin/perl
use strict;							  # Always use strict.
my $BASEPATH;

#
# Include path magic.
#
BEGIN {
  use File::Basename;
  use File::Spec;
  my $PROGRAM = File::Spec->rel2abs( $0 );
  ( undef, $BASEPATH, undef ) = fileparse( $PROGRAM );
  $BASEPATH = File::Spec->catdir( $BASEPATH, "../" );
  my $LIBPATH = File::Spec->catdir( $BASEPATH, "lib" );
  eval " use lib '$LIBPATH'";
}

##</code><code>##

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