#!/usr/bin/perl -w

use strict;
use Cwd qw(chdir);

chdir("/service/dnscache");
print "\$ENV{PWD}=$ENV{PWD}\n";
print "`pwd`=",`pwd`;