Select Code to Download

package gen_var;
use base 'Exporter';
...
my $export_vars = join(', ', @exported_symbols);
eval "\@EXPORT_OK = ($export_vars)";
1;

use gen_var($one);
print $one;