#!/usr/bin/perl
use Tk;
use strict;
use Tk::ExecuteCommand;
my $mw = MainWindow->new;
my $ec = $mw->ExecuteCommand(
-command    => '',
-entryWidth => 50,
-height     => 10,
-label      => '',
-text       => 'Execute',
)->pack;
$ec->configure(-command => 'ls -la');
$ec->execute_command;
$ec->bell;
$ec->update;
MainLoop;