my $pwd1 = "pwd1";
      my $pwd2 = "pwd2";
      open(FOO, "|$command") or die "open command failed: $!";
      print FOO "$pwd1\n$pwd2\n";
      close FOO;