Select Code to Download

#!/usr/bin/perl -w

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