my $pid = open(FILE, "-|");
if (!$pid) {
   die "Couldn't fork: $!" unless defined $pid;

   exec($script, $arg, $file) or die "Couldn't exec: $!";
}