Select Code to Download

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