2 # test for independent sql servers
3 # search local then perl directories
8 # root of directory tree for this system
10 $root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
12 unshift @INC, "$root/perl"; # this IS the right way round!
13 unshift @INC, "$root/local";
27 print "Processing $fn ";
28 my $dx = ARRL::DX->new(file=>$fn);
30 print "$c paragraphs\n";