What do you get when you run:

use warnings;
use strict;

print "Perl version: ", join ('.', unpack('C3', $^V)), "\n";
print "* $_\n" for @INC;

require Tk;

print "~ $_\n" for @INC;
[download]

What OS are you using (XP seems likely).

C:\>perl -e die$]
5.008007 at -e line 1.
[download]

I get exaclty the same as in the error message, that is
CODE(0xc1c15c). I am using XP.

On two different computers running XP I get:

Perl version: 5.8.8
* C:\Program Files\ActiveState Komodo 3.5\lib\support\dbgp\perllib
* C:\Program Files\ActiveState Komodo 3.5\lib\support\dbgp\perllib
* C:/Perl/site/lib
* C:/Perl/lib
* .
~ C:\Program Files\ActiveState Komodo 3.5\lib\support\dbgp\perllib
~ C:\Program Files\ActiveState Komodo 3.5\lib\support\dbgp\perllib
~ C:/Perl/site/lib
~ C:/Perl/lib
~ .
[download]

Try uninstalling Tk and then reinstalling it.

Note, I wasn't interested in the error message as such, we already had that information. I was more interested in confirming that the include path was sensible before Tk is loaded and trashed afterwards. You haven't actually confirmed that yet.

---

DWIM is Perl's answer to Gödel

Can you show us exactly what statements you have that assign something to @INC?

@INC should at least contain the location of your Perl installation without you doing anything to it and in most cases that should include Tk.

Another possibility is that you haven't done use Tk correctly. Again, we'd need to see what you've written to be sure.

I have not written anything to load data into the @INC
array (in fact I have never done this).
Neither have done anything that I know of assciated with Tk.

But what does your actual code say? Is it something like this?

use strict;
use warnings;

use Tk;

my $top = new MainWindow;

MainLoop;
[download]

How can you feel when you're made of steel? I am made of steel. I am the Robot Tourist.
Robot Tourist, by Ten Benson

Re-read the posting. He's not asking how to use Tk;, he's asking why his @INC seems to contain a reference to a sub (as shown in the messages as CODE(0xDEADBEEF)) instead of the usual list of strings that refer to various directories.

--
[ e d @ h a l l e y . c c ]