追記します
キャメルさんのご教示の下記（２、３段）も付記してあります。
その他、記述もチェックし直しました。
$logfile = "/access2/access2.log";　　　	#アクセスログ用ファイル
($dir = $0) =~ s|[/\\][^/\\]*$||;
$logfile = "$dir/$logfile";