first thanks to have reformat your OP, and no sir please, we are just monks.. ;=)

Crosspost are permitted but you better say it explicitally in the OP, with the link to the crosspost itself.

As already said you can try to uninstall Tk using cpanm alias cpanminus, that comes with the module App::cpanm so:

cmd_prompt> cpan

cpan> install App::cpanminus

[...]
Ok
cpan> q
Lockfile removed.


# now cpanm is installed; see the help..
cmd_prompt> cpanm --help
[..]
-U,--uninstall            Uninstalls the modules (EXPERIMENTAL)
[..]

cmd_prompt> cpanm -U Tk
Tk contains the following files:

[..]

Are you sure you want to uninstall Tk? [y] y

[..]

Successfully uninstalled Tk

cmd_prompt>perl -MTk -e 1
Can't locate Tk.pm in @INC...

# reinstall using cpan client
# UPDATE: or as marto suggest, now you have cpanm use it to reinstall 
+because it is much faster

cmd_prompt> cpan -i Tk

# go take some coffe or tea pot..

[..]
  SREZIC/Tk-804.033.tar.gz
  C:\path\strawberry\c\bin\dmake.exe install UNINST=1 -- OK


cmd_prompt> perl -MTk -c -e 1
-e syntax OK
[download]

L*

hi discipulus,

As u said i did the same went to the cpan and wrote the following commands

 C:\Strawberry\perl>cpan

cpan shell -- CPAN exploration and modules installation (v1.9800)
Enter 'h' for help.


cpan> install App::cpanminus
Fetching with LWP:
http://cpan.strawberryperl.com/authors/01mailrc.txt.gz
Fetching with LWP:
http://cpan.strawberryperl.com/modules/02packages.details.txt.gz
Fetching with LWP:
http://cpan.strawberryperl.com/modules/03modlist.data.gz
Database was generated on Tue, 09 May 2017 12:23:35 GMT
Updating database file ... Done!Catching error: "Global symbol \"\$dbh
+\" require
s explicit package name at C:\\strawberry\\perl\\vendor\\lib/CPAN/SQLi
+te/DBI/Sea
rch.pm line 46.\cJGlobal symbol \"\$dbh\" requires explicit package na
+me at C:\\
strawberry\\perl\\vendor\\lib/CPAN/SQLite/DBI/Search.pm line 92.\cJGlo
+bal symbol
 \"%chaps\" requires explicit package name at C:\\strawberry\\perl\\ve
+ndor\\lib/
CPAN/SQLite/DBI/Search.pm line 161.\cJGlobal symbol \"\$full_id\" requ
+ires expli
cit package name at C:\\strawberry\\perl\\vendor\\lib/CPAN/SQLite/DBI/
+Search.pm
line 177.\cJGlobal symbol \"\$full_id\" requires explicit package name
+ at C:\\st
rawberry\\perl\\vendor\\lib/CPAN/SQLite/DBI/Search.pm line 177.\cJComp
+ilation fa
iled in require at C:\\strawberry\\perl\\vendor\\lib/CPAN/SQLite/Searc
+h.pm line
9.\cJBEGIN failed--compilation aborted at C:\\strawberry\\perl\\vendor
+\\lib/CPAN
/SQLite/Search.pm line 9.\cJCompilation failed in require at C:\\straw
+berry\\per
l\\vendor\\lib/CPAN/SQLite.pm line 78.\cJ" at C:/strawberry/perl/lib/C
+PAN.pm lin
e 392.
        CPAN::shell() called at C:/strawberry/perl/lib/App/Cpan.pm lin
+e 295
        App::Cpan::_process_options('App::Cpan') called at C:/strawber
+ry/perl/li
b/App/Cpan.pm line 364
        App::Cpan::run('App::Cpan') called at C:\strawberry\perl\bin/c
+pan line 8



cpan>
[download]

is this ok? Am I going the correct way?

hey , I figured out that when I am using "instmodsh" command to get the list of the modules installed I am getting the "Tk module among the list of installed modules. Now i dont know why I am getting the same error for each program I am running using the Tk module. I f the Tk module is handsomely installed then it should not give any kind of such errors. Please help me out I am stuck in it from a long time thanks in advance.