Select Code to Download

 my %href;
 my ($uid) = @_;
...
        }
    }
    return \%href

sub getattrval {
    my ($hashref,$attr) = @_;
...
    }
    return undef;
}