#! perl -slw

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

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

print X123();
print Y456();