#!/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);