Public ScratchpadDownload, Select Code To D/L
To interpolate a complicated string: 
print <<_EOF_;
This is correctly interpolated: ${\$query->param('name')}
_EOF_

[download]
Here's a scary min() function, given a @list of numbers and a $number to check (thanks to Cees): 
if ( $number == @{[reverse sort @list]}[0..$#list] )

[download]