open( THIS_IS_NOT_A_PIPE,"printsth $arg |" ) or die $!;

while ( <THIS_IS_NOT_A_PIPE> ) {
  print;
}