explain all mysql queries in log

explainquery.pl

#!/usr/bin/perl
# enable query log for mysql 
open(F, "tail -f ~/query.log|");
while(<F>){
 chomp;
 if (/\d+\s+Execute\s+(select.*)$/igsm) {

  print "\n\nQuery: $1 : \n";
  $qry = $1;
  $qry =~ s/\`/\\\`/isgm;
  print `mysql -u root --password=root forge -e "explain $qry"`;
 }
}
close F;