use Tk;
require Tk::ExecuteCommand;

$top = MainWindow->new;
$executecommand = $top->ExecuteCommand( -height => 10, -scrollbars => 'se', bg => 'white')->pack( -expand => 'yes', -fill => 'both' );
$executecommand->terse_gui;
$executecommand->bell;
$executecommand->update;
$b_savelog = $top->Button(
    -text    => "Start script",
    -width   => 12,
    -command => sub {

        $executecommand->configure( -command => "sleep.pl");
        $executecommand->execute_command;
        }
)->pack( -side => 'right' );

MainLoop;

##</code><code>##

print "Starting...";
sleep 10;
print "end\n";