examples/pipe_open.pl

   1 use v6;
   2
   3 my $pugs = (($*OS ~~ any <MSWin32 cygwin msys>) ?? "pugs.exe" !! "./pugs");
   4 #say "using $pugs";
   5
   6 my $pipe = Pipe::open("$pugs -V", :r);
   7
   8 print "got> $_\n" for $pipe.lines;