Select Code to Download

use lib "$ENV{'SECTRAN_DIR'}/lib" ;
use sectran ;

if (exists $ENV{HOME}) {
   $file = "$ENV{HOME}/.profile" ;
...
   print "\n\tNo profile file found!\n" ;
   $result = 98 ;
}

TERM=vt220; export TERM
PATH=/usr/local/bin:/usr/bin:/usr/ucb:/etc:/isw/tpp/oracle/live/1.6.1/
+ids/bin:/i
...
fmxs:.
PATH=$PATH:${ORACLE_HOME}/bin:${ORACLE_HOME}/dbs
export PATH'

#
while (($key, $value) = each (%ENV)) {
   print "\n\tKey :: $key" ;
   print "\n\tValue :: $value" ;
}

        Running /home/interface/.profile.
 
...
        Value :: GB
        Key :: PATH
        Value :: /usr/bin: