#package fred;

sub X123{ return 'x123'; }

sub Y456 { return 'Y456'; }

$localScalar = 'from fred';
@localArray = qw[ also from fred ];
%localHash = qw[ and this comes from fred as well ! ];

print 'fred.pm loaded';

##</code><code>##

#! perl -slw

do './fred.pm' or die "$@ / $!";

print $localScalar;
print @localArray;
print %localHash;

print X123();
print Y456();

##</code><code>##

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

##</code><code>##

C:\test>junk33
Name "main::localArray" used only once: possible typo at C:\test\junk33.pl line 6.
Name "main::localHash" used only once: possible typo at C:\test\junk33.pl line 7.
Name "main::localScalar" used only once: possible typo at C:\test\junk33.pl line 5.
fred.pm loaded
from fred
alsofromfred
well!comesfromandthisfredas
x123
Y456

##</code><code>##

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\junk33.pl line 8.
Execution of C:\test\junk33.pl aborted due to compilation errors.