Help for this page
#!/bin/bash ... ( while : ; do echo $f; sleep 1; done ) & done wait
#!/usr/bin/perl ... my $lines_left = 20; print while defined($_ = <$output_from_subshell>) and $lines_left--; kill "HUP", -$subshell->{pid};