Here's a Perl / Oracle SQL snippet.

Oracle has a special virtual table called DUAL from which you can select arbitrary data (useful with sequences, such as in SELECT customerID.NextVal FROM dual). This snippet probably won't work with other SQL flavors. :/

select ('Just another SQL hacker'), '\'
-- '; sub dual::from { print STDOUT "Just another Perl hacker!\n" }
from dual
[download]