#!/usr/bin/perl

use strict;
use warnings;

my $secret = 'BruceWayneisBatman';

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