my ($shell, $code) = mystical_extraction_goes_here($check{CHECK_CODE}); open my $fh, '-|', $shell, -c => $code or die "Can't run shell $shell: $!"; my @return = <$fh>; close $fh;