This one isn't too hard...

print "$_\n" for length("x")..length("xxxxxxxxxx");
[download]

No module, no digit, no mathematical function.

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$
[download]