Thx for all the replies. I am still getting same error after multiple reinstall. Previous code i posted was from my work so i could not post whole code. I am posting a new full code, where i am getting same error.

use strict;
use warnings;
use Tk;
require Tk::BrowseEntry;
my @items = qw(check0 check1 check2);

my $mw = MainWindow->new();
my $default_choice = "check0";
my $dropDown = $mw->BrowseEntry(
   -label=>'item list',
   -variable=>\$default_choice,    
   -browsecmd=>\&run
   )->pack();

$dropDown->insert('end', "check0");
$dropDown->insert('end',"check1");
$dropDown->insert('end',"check2");
   
$mw->Button(-text=>'exit', -command=>sub{exit;})->pack();
MainLoop;


sub run{
    my $x = 0;
    foreach my $element (@items){        
        print $element eq lc($default_choice)? "$default_choice index 
+[$x]\n" : next;
     $x++;
        }
    }
[download]

Please let me know if i can get that missing labelPack.al and just copy\paste it in my directory

Hi, what do you mean by reinstall?

How did you install Tk?

Whats the error message now?