perl -le 'open GR, "| grep hallo"; print GR "eins\nhallo da bin ich\nzwei\n";'