my $code  = 'package '.$pkgnam.';
                 use vars qw($'.$varname.');
                    $'.$varname.' = "'.$value.'";
                ';

    eval $code; 
    $@ and die "Error in exporting var $varname: $@";

##</code><code>##

    my $code  = 'package ' . $pkgnam . ';
                 our  $'.$varname.' = "'.$value.'"';

    eval $code; 
    $@ and die "Error in exporting var $varname: $@";

##</code><code>##

Variable "$Tor_mgr" is not imported at ./rss_rdr line 724.
Variable "$Tor_mgr" is not imported at ./rss_rdr line 736.
Variable "$Tor_mgr" is not imported at ./rss_rdr line 745.
Global symbol "$Tor_mgr" requires explicit package name at ./rss_rdr line 724.
Global symbol "$Tor_mgr" requires explicit package name at ./rss_rdr line 736.
Global symbol "$Tor_mgr" requires explicit package name at ./rss_rdr line 745.
BEGIN not safe after errors--compilation aborted at ./rss_rdr line 754.