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