sub acct {
    my ($t, $elt) = @_;
    print $elt->att('id'), "\n";
    for my $tag (qw(USERNAME HOST PERMISSION)) {
        print $elt->field($tag), "\n";
    }
    print "\n";
}