Select Code to Download

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