#!perl
print "setenv FOO bar\n";

##</code><code>##

eval `perl_script.pl`