Select Code to Download

 use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::SaveParser;
use Spreadsheet::ParseExcel::Workbook;

#!/usr/bin/perl

...
parser_excel("Select * from Busy_Hour where monthname(Date)='$month' O
+RDER BY Date DESC",0);
parser_excel("Select * from Hourly_Data where monthname(Date)='$month'
+ and Hour in (21,22,23) ORDER BY Date DESC",1);
parser_excel("Select * from Hourly_Data where Date='$date' order by Ho
+ur",2);