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