Select Code to Download

use warnings;
...
        print "gid:" . $auth_ref->{gid} . "\n";
        print "dir:home:" . $auth_ref->{homedir} . "\n";
}

use warnings;
...
        print "dir:home:" . $auth_ref->{homedir} . "\n";
}