#!/usr/bin/perl

use strict;
use warnings;

my $secret = 'BruceWayneisBatman';

my @cmd = ('perl', 'child.pl', $secret);
system(@cmd) == 0 or die "system @cmd failed: $?";

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

my $message = $ARGV[0];

print "The master script passed: $message\n";