Select Code to Download

open my $source,'-|',"bash /tmp/wrapper.sh" or die "$!";

...
eval $dump;

print $VAR1->{MONK};  #> jfroebe

lanx@nc10-ubuntu:/tmp$ cat wrapper.sh 
. /tmp/src.sh
...
export MONK=jfroebe

lanx@nc10-ubuntu:/tmp$

my $bashcode=<<'_bash_';
. /tmp/src.sh;
...
eval $dump;

print $VAR1->{MONK};  #> jfroebe

my $bashcode=<<'__bash__';
. /tmp/src.sh;
...
eval qx{bash -c "$bashcode"};

print $VAR1->{MONK};  #> jfroebe