Perl/MySQLからデータを抽出するの名前を変更します。