Выполнить кусок кода на BASH внутри Perl-программы?

system("bash bla-bla-bla?") 

system('bash','-c','... BASH_COMMANDS_HERE ...');

$ perl -e 'eval `bash -c "source ~grib/bin/grib-scriptset/point_forecast_hashes_extended.def; source /opt/scripts/functions/perl.inc; PerlDcl_Hash LBL2MP"`; print $LBL2MP{"U700"}."\n";'
UGRD-700_mb

open(OUT, "bash -c date |");
print <OUT>;