Re^3: How to print out package code ?

[choroba]

You cannot print a bareword handle. You want to print the line read from the handle, therefore:

print X $_;