BEGIN { 
    use File::Spec;
    use File::Basename qw' dirname ';
    our $thisf = File::Spec->rel2abs(__FILE__);
    our $thisd = dirname($thisf);
}