my $bashcode=<<'__bash__';
    source ~/.bash_profile;
    perl -MData::Dumper -e 'print Dumper \%ENV';
__bash__

my $VAR1;
eval qx{bash -c "$bashcode"};

my $dir = $VAR1->{CTC_HOME};