*$=\%!,$*=$=,*==*#,$==join$",map#s s$*\*(q{%!})+6
s$.$$&&$_,(%$)[$*+6+2+6,$*/2+6,$**2-6-2-6-2,$**2-6]
;print+cos
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.