If I'm understanding you correctly, you're looking for eval.

open my $fh, "<", "launch_child.pl" or die $!;
my $script = join '', <$fh>;
close $fh;
eval $script;
[download]

(In contrast to do, it does see lexicals in the enclosing scope.)