This is C code, but this is obviously Perl-related:
From "Larry Wall's quotes" http://www.cmpe.boun.edu.tr/~kosar/other/lwall.html

double value; /* or your money back! */
short changed; /* so triple your money back! */ 
     --Larry Wall in cons.c from the perl source code