#!/usr/local/bin/perl
use strict;
use warnings;

$ENV{foo}="bar";

if (fork == 0){ #child
        exec("./foo.pl");
} else{
        print "I'm the parent $ENV{foo}\n";
}

##</code><code>##

#!/usr/local/bin/perl

print "I'm the child $ENV{foo}\n";