in reply to Source command in perl script

Shell::Source will do this for you.

In Section Seekers of Perl Wisdom