sub Wanted
{
   return unless (-f $_);
   # only operate on compiled widgets
    /\.wgt$/ or return;

    my $file = $_;

    chomp ($file);
    chomp ($line);
    #print $file ." \n" if $file eq $line;
    if (lc($line) eq lc($file)){
        print  $File::Find::name. "\n";
        #my $foundFile = $File::Find::name. "\n"; #this does not work hence it is commented out!!
    }
    return;

}