sub lbl {
    my $args = { -class => 'small', -for => $_[0] };
    label($args, $_[1]);
}

sub txt {
    my $name = shift;
    my $args = { -name => $name, -id => $name };
    %$args = (%$args, %{$_[0]}) if $_[0];
    textfield($args);
}