Listing 1: Using output from find

85  $rpref='/net/'.$rhost;      # NFS prefix
86  $rdir=$rpref.$fs;           # remote directory
87
88  if ($opt_v) { print "listing $rdir\n"; }
89  open(FIND,"find $rdir -print |");
90  $n=0;
91  while (<FIND>)
92  {
93      ++$n;
94      print RLIST $_;
95  }
96
97  if ($opt_v) { print "$rdir contains $n files\n"; }
98  close(FIND); close(RLIST);