foreach ( `. /etc/profile && /usr/bin/env` )
                {
                chomp;

                ($k,$v) = split(/\=/,$_);

                if ( ! $ENV{$k} )
                        {
                        $ENV{$k} = $v;
                        }
                }

foreach ( `ksh . /home/user/.profile && /usr/bin/env` )
                {
                chomp;

                ($k,$v) = split(/\=/,$_);

                if ( ! $ENV{$k} )
                        {
                        $ENV{$k} = $v;
                        }
                }