.
.
.
  if ($MapResult == 1){
    find (\&pstFind, $dir);
  }elsif ($MapResult == 0){
    push @missedEntry,$PCName;
  }#end if
.
.
.
  sub pstFind{
print "\n** Test Line **\n";
    if (/\.PST$/ || /\.pst$/){
 
      my $entry = "$PCName"."    $File::Find::dir"."/$_\n";
      my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $therest) = stat($_) or die "Unable to stat $_\n";
      chomp $entry;
      $entry = "$entry" . " = $size bytes\n";
      $ByteCount += $size;
      print "$entry\n";
      open (OUTFILE, ">> $outfile");
      print OUTFILE $entry;
      close OUTFILE;
      }# end if
    }#end sub
.
.
.