use strict;
use warnings;
+use File::Basename;
use re 'eval';
-use constant DIR_AD => "/usr/local/squid/etc/ad";
+my $DIR_AD=dirname($0)."/ad";
-chdir DIR_AD or die "chdir ".DIR_AD.": $!";
+chdir $DIR_AD or die "chdir $DIR_AD: $!";
select STDOUT;
$|=1;
my @got;