use Env qw(TNS_ADMIN);
$TNS_ADMIN = "/opt/oracle/local/config";

##</code><code>##

perldoc Env