$ . set
$ stuff
$ requiring
$ modified
$ environment

##</code><code>##

system '. set ; stuff requiring modified environment' == 0 or die "system() failed - $!";