my $SID=shift;
my $output=`. /my_location/switchdb.ksh $SID 2>/dev/null 1>/dev/null && echo \$ORACLE_HOME`;
chomp($output);
if($output =~ m{/}){
  $ENV{ORACLE_HOME} = $output;
}
print "DEFINED ORACLE_HOME as (" . $ENV{ORACLE_HOME} . ")\n";

##</code><code>##

my $output=`. /my_location/switchdb.ksh $SID 2>/dev/null 1>/dev/null && env > /tmp/$mytempfile`;