...
sub _std_btn_pack_opts () {
    return (-side => left, -padx => 5, -pady 2);
}
...
$parent->Button(...)->pack(_std_btn_pack_opts);
...