sub getenv
{
    my $profile  = shift;
    my @envlines =  (`exec ksh -c ". $profile; env"`);
    foreach (@envlines)
    {
        chomp;
        next unless /=/;
        my ($var, $value) = split(/=/, $_, 2);
        $ENV{$var} = $value;
    }
} # END - getenv


##</code><code>##

#!/bin/ksh
export ORACLE_SID=testp
export NLS_LANG=American_America.WE8ISO8859P1
export ORACLE=/opt/oracle


##</code><code>##

getenv ('my_env');

##</code><code>##

ORACLE_SID=testp                      
NLS_LANG=American_America.WE8ISO8859P1
ORACLE=/opt/oracle