open my $pipe, "| $script"
        or  die "Can't fork to run $script: $!\n";
    print $pipe $input;
    close $pipe