perl -e 'while ($s=<*>) { print $s,"\n"; sleep 5 }'