$frame->Button (
    -text               => "Save table FOO",
    -borderwidth        => 1,
    -highlightthickness => 0,
    -command            => sub { save_table ("foo"); },
    )->pack;