printf("start\n");
_init_UIDs();
printf("end\n");

sub _init_UIDs()
{
    while (my @ent = getpwent()) {
	printf("%s\n", $ent[0]);
        $UIDs{$ent[2]} = $ent[0];
        $Unames{$ent[0]} = $ent[2];
    }
}