Select Code to Download

# untested code
my %hash = (name    => lc $user->name,
            address => $user->address,
            groupname => $user->group->name);

# untested code
my %hash = $user->hashy; # pump all the fields into a hash