#!/usr/bin/perl -w
# .setenv.pl
use strict;

...
...
my $var1 = 'a';
my $var2 = 'b';
...
...

print <<EOL;
export VAR1=$var1
export VAR2=$var2
EOL

exit(0);

##</code><code>##

#!/usr/bin/bash
if [ -x ~/.setenv.pl ]
then
    eval `.setenv.pl`
fi

##</code><code>##

. ~/.setenv.sh