Select Code to Download

#package fred;

...
%localHash = qw[ and this comes from fred as well ! ];

print 'fred.pm loaded';

#! perl -slw

...

print X123();
print Y456();

C:\test>junk33
fred.pm loaded
...
well!comesfromandthisfredas
x123
Y456

C:\test>junk33
Name "main::localArray" used only once: possible typo at C:\test\junk3
+3.pl line 6.
...
well!comesfromandthisfredas
x123
Y456

C:\test>junk33
Global symbol "$localScalar" requires explicit package name at C:\test
+\junk33.pl line 6.
Global symbol "@localArray" requires explicit package name at C:\test\
+junk33.pl line 7.
Global symbol "%localHash" requires explicit package name at C:\test\j
+unk33.pl line 8.
Execution of C:\test\junk33.pl aborted due to compilation errors.