Select Code to Download

exec("shell_script < $input_file") unless $pid;

my $pid = fork();
die "failed to fork: $!" unless defined $pid;
...
   die;
}
# parent