use IO;
$pipe=new IO::Pipe;
$pipe->reader();
while (<$pipe>){
  print "> $_\n";
}