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

##</code><code>##

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