BEGIN {
  use File::Spec::Functions qw(rel2abs);
  use File::Basename;
  my $homedir = dirname(rel2abs($0));
  # let's hope that the homedir is something sane and dosen't
  # contain curly braces:
  eval "use lib q{$homedir};";
  die $@ if $@;
};