#!/usr/bin/perl -w
BEGIN {
     $ENV{PERL_TCL_DLL} = 'C:\Program Files\Tcl\bin\tcl85t.dll';
}
 use Tkx;
 #print Tkx::package_require( 'platform');
 #print "\n";
 #print Tkx::platform__identify();
 # print "\n";
 #print Tkx::info_loaded();
 # print "\n";
 #print Tkx::info_nameofexecutable();
 #Tcl::DL_PATH
  my $mw = Tkx::widget->new(".");
  $mw->new_button(
       -text => "Run",
       -command => sub {
          LXS::EnumState(2000);
          $mw->g_destroy;
          },
  )->g_pack;
  Tkx::MainLoop();