# Main program

my $mark;
foreach my $user (sort keys %$pusers) {
    my $flag = $pusers->{$user};

    printf "%10.10s  %s\n", $user, ($flag? '*': ' ') x 8;

    $mark = $flag? '*': ' ';
    printf "%10.10s  %s\n", $user, $mark x 8;
}