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