# untested;
my $set_env = `cd $dir && source test1.sh && perl -MData::Dumper -e 'print Dump \\\%ENV'` and die;
print $set_env;