use File::Basename;
  use File::Spec;
  my $pathtolib = File::Spec->rel2abs (dirname $0);