Select Code to Download

#!/usr/bin/perl

...

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

#!/usr/bin/perl

...
my $message = $ARGV[0];

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