# We need Proc::ProcessTable to work properly.  If it's not available,
# then we act like Perl's builtin kill() command.

##</code><code>##

Can't call method "ExecuteCommand" on an undefined value at D:\...\exec.pl line 1.

##</code><code>##

use Tk;
use Tk::ExecuteCommand;

my $mw = MainWindow->new;
 $ec = $mw->ExecuteCommand(
     -command    => '',
     -entryWidth => 50,
     -height     => 10,
     -label      => '',
     -text       => 'Execute',
 )->pack;
 $ec->configure(-command => 'dir');
 $ec->execute_command;
 $ec->bell;
 $ec->update;

MainLoop;