Wonderful!

At least I get a mouse cursor of an hourglass via
-cursor => 'watch'
building on your suggestion. Interestingly, I lose the
-relief => 'sunken'
effect unless I include this specifically within the "Busy" call. Trying to sneak in other options such as 'text', 'background', and 'foreground' seems to have no effect, thus these options are commented out in my snippet.

Thanks,
Brig

my $Customized_Command_b;
$Customized_Command_b = $tl->Button(
    -textvariable => \$Custom_Command_label, # previously defined
    -underline => 0,
    -borderwidth => $bd_width,
    -command => sub {
        
        $Customized_Command_b->Busy(
            '-recurse' => 1,
            -cursor => 'watch',
            #-text => 'Processing...',
            -relief => 'sunken',
            #-background => 'blue',
            #-foreground => 'blue',
                );

        system $custom_command, @arguments, $formdir, $dir
            and warn "'Custom Command' problem: ", $? >> 8, "\n"
            and $ccmd_rc = 1
            ;

        if ($ccmd_rc) {
            $View_Custom_Log_cb->configure(
                        -background => "red1",    
                        -activebackground => "red1",
                             );
        }

        $Customized_Command_b->Unbusy( '-recurse' => 1 );
        $tl->raise();
        },
    )->grid(
        -column => 5,
        -row => 14,
        -columnspan => 6,
        -sticky => 'nsew',
            );
[download]