The way I meant it to be used was something like this:

-- eval
print for 1..100;
[download]

or suppose you have a list of items and wish to build a derived table (nice for seeing which of the values doesn't exist in another table)

-- eval
print join "$/UNION ALL$/", map "SELECT $_ as x", 1..100;
[download]

The intent was to let you pass plain perl and do whatever you want.