Select Code to Download

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