use strict;
use warnings;

use Capture::Tiny ':all'; # anonymonk tip
#use File::Temp; # for complex drivers write it to a temp file

sub bad {
  my ($perl_executable,
      $perl_module_to_require,
      $perl_code_to_drive_it
  ) = @_;
  # capture from external command
  my $prog = <<EOQ;
require "$perl_module_to_require" or die "failed to load module $perl_module_to_require";
$perl_code_to_drive_it
EOQ
#  my $tmpfile = File::Temp::tempfile();
  print "executing: $perl_executable -I. -e '".$prog."'\n";
  my ($stdout, $stderr, $exit) = capture {
    system(
      $perl_executable,
	'-I', '.',
        '-e', $prog
   );
  };
  die "exit=$exit\n $stderr\n" if $exit;
 print "stdout=$stdout\n";
 print "stderr=$stderr\n";
}
# and here is the example use
bad(
  '/usr/bin/perl', # perl exec to run
  'p5_24.pl',    # the file which contains Mul()
  'my $res = Mul(6,7); print "$res\n"' # the harness
);