#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';