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