my $bframe = $dialog->Subwidget('bottom');

for ($bframe->children) {
    $_->packForget;
    $_->pack(-side => 'right',
             -padx => 3,
             -pady => 3,
         )
}
[download]

Cheers, Christoph