Help for this page
#!/usr/bin/perl -w ... sleep 1; print "$i\n"; }
#!/usr/bin/perl -w ... while ($out = <$pipefh>) { print $out; }