Help for this page

Select Code to Download


  1. or download this
    # store the values
    push @{$files{$uid}}, { name => $name, size => $size, age => $age};
    ...
        print "  $file->{name}\n";
      }
    }