example script for MySQL query with PERL