in reply to Achieving something similar to <<EOQ

Uh... by reading the file?

my $query = dbQuery( do{local $/ = undef; open my $in, shift and <$in>} );

You might want to toss in a bit of error-checking in case the file doesn't exists, or the program lacks the privileges to read it.

• another intruder with the mooring in the heart of the Perl