Select Code to Download

#Minimal
package A;
...
print A::sub, "\n";
print scalar A::sub, "\n";
A::sub() = 42;

#To work properly comment out the next line
package Xmas;
...
Ten lords a-leaping
Eleven pipers piping
Twelve drummers drumming