Select Code to Download

#!/usr/bin/perl
use strict;
use Time::HiRes qw(usleep);
...
    wait;
}
print STDERR "\nDONE\n";

001 123456789012345678901234567890123456789012345678901234567890123456
+78901234567890123456789012345
002 123456789012345678901234567890123456789012345678901234567890123456
+78901234567890123456789012345
003 123456789012345678901234567890123456789012345678901234567890123456
+78901234567890123456789012345
...
048 123456789012345678901234567890123456789012345678901234567890123456
+78901234567890123456789012345
049 123456789012345678901234567890123456789012345678901234567890123456
+78901234567890123456789012345
050 123456789012345678901234567890123456789012345678901234567890123456
+78901234567890123456789012345

…
read(0, "002 1234567890123456789012345678"..., 4096) = 4096
write(2, "002 1234567890123456789012345678"..., 100002 123456789012345
+678901234567890123456789012345678901234567890123456789012345678901234
+56789012345
...
read(0, "", 4096)                       = 0
wait4(-1, [{WIFEXITED(s) && WEXITSTATUS(s) == 0}], 0, NULL) = 2117
…