Select Code to Download

#!/usr/bin/perl
$| = 1;
sleep 10;
print "x\n";
while (1) { sleep 10; }

#!/usr/bin/perl

open my $fh, "./child.pl |";
close $fh;

  ...
  my $active = 1;
...
  }
  close $fh;