Help for this page
$ cat file_gen.pl #!/usr/bin/env perl ... print "$t: line: $_\n"; sleep 1; }
#!/usr/bin/env perl use strict; ... print join("", @lines),"\n"; sleep 5; }