print "\n[*] Query : $select { query }";
与
print "\n[*] Query : " . $select { query };
print "\n[*] Query : $select{query}";
使用$select之后的空格,Perl认为你完成了该变量的插值,并按字面意思处理以下文本(包括花括号).
