# perl -lw
print "export FOO=bar"; # assuming bourne-compatible shell

##</code><code>##

$ eval `your_perl_script.pl`
$ echo $FOO
bar
$