$ which -a widget
C:/citrusperl/vendor/bin/widget
C:/citrusperl/vendor/bin/widget.BAT

$ head C:/citrusperl/vendor/bin/widget
#!/usr/bin/perl

use 5.008;
use Config;
use Tk 804.000;
use lib Tk->findINC( 'demos/widget_lib' );
use Tk::widgets qw/ DialogBox ErrorDialog LabEntry ROText /;
use Tk::Config ();
use WidgetDemo;
use subs qw/