The way I meant it to be used was something like this:
-- eval print for 1..100;
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;
The intent was to let you pass plain perl and do whatever you want.