Select Code to Download

#!/usr/bin/perl -wl
use strict;
...
    print "parent: $var";
}

child: foo
child: bar
parent: baz

child: baz
child: bar
parent: bar