Select Code to Download

   foreach(keys %users) {
       my %user=$_;
       [...]
   }

   foreach my $username (keys %users) {
      #my $pw=getpwnam($users{$username}{uname});
...
      my $pw=getpwnam($username);
      my $homedir=$pw->dir;
   }