perl -e "open(FH, q{>/dev/tty}); print FH (qq{a\n}); sleep(5); print FH (qq{a\n});"