Select Code to Download

my $child = fork;
if ($child) {
...
  # Run the background program
  exec '/path/to/program > /dev/null 2>&1';
}

my $pid = open my $cmdfh, "-|", '/path/to/program'
    or die "Cannot fork: $!\n";
...
}

kill 9, $pid;