open(my $pipe, "plink /usr/bin/perl </some/local/script.pl |")
    or die "unable to run command: $!";

while (<$pipe>) {
  print "response: $_";
}