# Test program tt1.pl

use strict;
use warnings;

# Run a command without invoking the command shell.
#   exe is the command name
#   @_ contains the command line arguments (including argv[0])
sub run_cmd_noshell
{
   my $exe = shift;
   print "run '$exe' with args:\n    '@_'\n";
   system { $exe } @_;
   my $rc = $? >> 8;
   $rc == 0 or warn "error: exit code=$rc\n";
}

run_cmd_noshell($^X, $^X, '-le', 'print q{hello one};');
run_cmd_noshell($^X, 'perl', '-le', 'print q{hello two}; exit 42;');