Hmm, well your code also produces some mystery entries. Can someone tell me what the sqares represent here?
TIA
jg

$ is defined, and value is 256
$ is defined, and value is C:\Perl\bin\perl.exe
$" is defined, and value is  
$$ is defined, and value is 345389531
$/ is defined, and value is 

$0 is defined, and value is C:\WINDOWS\Desktop\Edit2
$@ is defined, and value is 
%CORE:: is defined, and value is %CORE::
%DynaLoader:: is defined, and value is %DynaLoader::
%ENV is defined, and value is %ENV
@INC is defined, and value is C:/Perl/lib C:/Perl/site/lib .
%IO:: is defined, and value is %IO::
%UNIVERSAL:: is defined, and value is %UNIVERSAL::
%Win32:: is defined, and value is %Win32::
$_<..\universal.c is defined, and value is ..\universal.c
$_<..\xsutils.c is defined, and value is ..\xsutils.c
$_<.\win32.c is defined, and value is .\win32.c
$_<perllib.c is defined, and value is perllib.c
%attributes:: is defined, and value is %attributes::
%main:: is defined, and value is %main::
$symname is defined, and value is symname
[download]

_____________________________________________________
"The man who grasps principles can successfully select his own methods.
The man who tries methods, ignoring principles, is sure to have trouble.
~ Ralph Waldo Emerson