my $bashcode=<<'_bash_';
. /tmp/src.sh;
perl -MData::Dumper -e "print Dumper \%ENV";
_bash_


open my $source, '-|', qq{bash -c '$bashcode'} or die "$!";

my $dump= do { local $/; <$source>};

my $VAR1;

eval $dump;

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