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