5 lines
132 B
Perl
Executable file
5 lines
132 B
Perl
Executable file
#!/usr/bin/env perl
|
|
|
|
open FH, "| 9p write acme/$ENV{winid}/addr";
|
|
print FH ",";
|
|
system "9p write acme/$ENV{winid}/data </dev/null";
|