opendir(DH, "/proc/$$/fd");
  while (my $item = readdir DH){
    next if ($item =~ /\.\.?/);
    my @sinfo = stat("/proc/$/fd/" . $item);
    my $mode = $sinfo[2];
    printf("Item is $item: %o\n", $mode);
    my $fh = FileHandle::fdopen($item, O_RDWR) || warn "Could not dup $item";
    print Dumper($fh);
    close($fh);
  }
  closedir(DH);

  opendir(DH, "/proc/$$/fd");
  while (my $item = readdir DH){
    next if ($item =~ /\.\.?/);
    print "Item is $item\n";
  }
  closedir(DH);