#!/usr/bin/perl -w
#
print "\n\t<***** SOR *****>\n" ;
#
if (exists $ENV{HOME}) {
     print "\n\tOH :: $ENV{ORACLE_HOME}\n" ;
     print "\n\tHome :: $ENV{HOME}\n" ;
     $file = "$ENV{HOME}/.profile" ;
     print "\n\tFile :: $file\n" ;
     $result = system "$file" ;
     print "\n\tResult :: $result\n" ;
     $result = system "ISWTEST" ;
     print "\n\tResult :: $result\n" ;   
     "ISWLIVE" or warn "\n\tNay chunce min!!!\n" ;
     print "\n\tOH :: $ENV{ORACLE_HOME}\n" ;
    }
  else
  {
     print "\n\tOh no it's nae!\n" ;
  }
#
  print "\n\t<***** EOR *****>\n" ;

##</code><code>##

        <***** SOR *****>

        OH :: /isw/tpp/oracle/test/8.1.7

        Home :: /home/interface

        File :: /home/interface/.profile

        Result :: 0
Can't exec "ISWTEST": No such file or directory at xxrc_profile.pl line 12.

        Result :: -1

        OH :: /isw/tpp/oracle/test/8.1.7

        <***** EOR *****>