#!/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" ;