system( qq{ echo 1\n | $program });