perl -e '
  fork();
  open X, "</etc/passwd";
  while (readline(X)){
    print "$$: $_";
    sleep 1
  }
  print "$$: all done\n"
'