use File::Basename        qw( dirname );
use File::Spec::Functions qw( rel2abs );
BEGIN { chdir(dirname(rel2abs($0))); }

if (!do('common.inc')) {
   my $extra = $@ ? ": $@" :
               $! ? ": $!" :
               ': did not return a true value';
   die("Unable to load common stuff$extra\n");
}