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